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Apresentamos o 

TK 20001 
Ele rada o programa 
mais famoso 
do mundo. 

De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

0 novo TK 2000 II roda o 
Multicalc: a versão Microsoft do 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, você 
controla estoques, custos, contas a 


pagar, faz sua programação financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar planilhas com 
computadores da linha Apple® 

E, como todo business Computer 


que se preza, ele tem teclado 
profissional, aceita monitor, diskette, 
impressora e já vem com interface. 

Além de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peça logo uma 
demonstração do novo TK 2000 II, nas 
versões 64K ou 128K de memória. 

A mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 

Preço (128 K): 

Cr$ 2.949.850 
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computadores pessoais 



Sujeito a alteração sem prévio aviso. 


® Marca registrada da Visicorp. Eiáada à ABIC0MP ® Marca reyistrada da Apple Computer. 
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Em setembro, a cidade de São Paulo será palco, mais uma vez, do maior 
acontecimento brasileiro na área de informática. A Feira e o Congresso 
juntos se tornaram, após quatro anos de realizações, o evento mais im¬ 
portante para profissionais, empresários e mesmo leigos que se interes¬ 
sam pela informática no Brasil. Este ano, seus realizadores trazem o te¬ 
ma "Progresso e Desenvolvimento", que reflete o momento político por¬ 
que passa o País. 

"Progresso e Desenvolvimento" traz imbuído dentro de sí não apenas 
o posicionamento do Governo brasileiro com relação à política de infor¬ 
mática, mas também e principalmente, as aspirações dos empresários da 
área. O primeiro ano de existência da Lei de Informática (que estabele¬ 
ceu a reserva de mercado para microinformática), o PLANIN — Plano Na¬ 
cional de Informática, dentre outros aspectos são preocupações marcan¬ 
tes de todos eles, que serão levantadas, com destaque, nos primeiros dias 
do Congresso. 

Evidencia-se dessa maneira, de acordo com opiniões emitidas por di¬ 
versos diretores do Informática/85, uma determinação em apresentar: na 
Feira (que ocupará 30-OOOm 2 do Anhembi), o estágio atual da indústria 
e o desenvolvimento alcançado por ela no primeiro ano de existência da 
Reserva de Mercado e, no Congresso, levantar discussões, à baila da Nova 
República, sobre temas que envolvem a tecnologia, a política econômica 
e o futuro. 

Quanto a Microhobby mostramos nesta edição, artigos como Planilhas 
Eletrônicas (falando sobre sua história, aplicações e diversos produtos); 
Estatística no TK2000, uma análise de dados no micro pessoal, dividida 
em quatro partes além de novas abordagens em seções como Didática. 

Na seção Aplicações do Micro, um arquiteto fala sobre como está fa¬ 
zendo um "mini CAD" (Projetos Auxiliados por Computadores) no pe¬ 
queno TK 90X. 

A seção Clube de Usuários está tendo uma excelente receptividade por 
parte dos leitores. Acreditamos que ela será o fio-comunicador entre os 
mesmos. Por isto continuamos abertos à participação dos usuários. Envie- 
nos sugestões, colaborações e informações sobre suas atividades. Afinal 
de contas, Microhobby é de vocês. 


Ana Lúcia de Alcântara 


4 MICROHOBBY 





“Prezados Senhores: 

Foi muito boa a publicação do nosso amigo Má¬ 
rio Folli num programa chamado “Dive Bomber”. 

Gostaria que vocês continuassem a publicar pro¬ 
gramas deste porte, além de programas aplicati¬ 
vos em matemática. 

“Dive Bomber” está fazendo sucesso em nossa 
casa e seguramente deverá estar agradando todos 
aqueles que rodaram o programa no seu TK 2000: 
(É muito melhor do que aqueles programas ven¬ 
didos nas lojas). 

Aproveitando a ocasião gostaria de fazer algu¬ 
mas perguntas a V.Sas.: na função DATA, não pos¬ 
so colocar RND (1) * 10 ? (testei no meu TK e não 
funciona). Qual o motivo? (DATA RND (1) * 10) 
também não funciona). 

Nas linhas 620 e 630, ao invés dos números se¬ 
rem fixos, como eu poderia alterá-los para cada 
rodada do programa? (Ref programa “Dive Bom¬ 
ber”)” 


Kiyoshi Ikajiri 
São Paulo, Capital 


“Caro Kiyoshi, 


A função DATA não aceita diretamente este ti¬ 
po de informação apresentada. Você deverá definí- 
la em uma variável e colocá-la na linha DATA 
acompanhada de READ mais a variável. 


Exemplo: LET A = RND (1) * 10 
DATA A 
READ A 


Nas linhas 620 e 630 do programa “Drive Bom¬ 
ber” haverá necessidade de definir as variáveis, an¬ 
tes e depois, e colocá-las no lugar dos números nas 
duas linhas DATAS. 


“Prezados senhores: 

Desejaria que os senhores me respondessem às 
seguintes perguntas: 

a) Existe light-pen ou lápis de luz para o TK 85? 

b) Se não existe aqui, no mercado exterior tem? 
Qual o preço? 

c) O Hight-Speed pode funcionar num grava¬ 
dor sem controle de tom? Pois o meu não quer 
funcionar. 

d) Caso a resposta seja negativa, o aparelho 
anunciado na MICROHOBBY-13, pág.13, resolve¬ 
ria o meu problema? 

e) No programa “A Volta do Barão Vermelho 
TK 83/85”, o avião do Brown se move, mas não 
se apaga, deixando um rastro. O que devo fazer? 

f) Ainda existe no mercado a impressora TK- 
Printer? Gostaria de adquirir uma. Caso ainda se 
encontre a venda onde encontrar e qual o preço? 
Poderiam dar-me maiores informações?” 


Lee Wen Hua 
Campinas, SP. 


Caro Lee, 

Não temos conhecimento da existência do light- 
pen para o TK-85, no mercado brasileiro. É pro¬ 
vável que exista para o TK 90X. 

O High-Speed apresenta problemas de gravação, 
que podem ser sanados com o uso de gravadores 
de ótima qualidade, e fitas cassete com alta sensi¬ 
bilidade de som. 

Creio que o soft-loader seria uma boa saída para 
acabar com os problemas de gravação tanto em 
High-Speed como no moc^o normal. Vale a pena 
tentar! 

Quanto ao programa A Volta Do Barão Verme¬ 
lho, muitos leitores ligaram para nós apresentan¬ 
do falhas que existiam no programa. Nós atende¬ 
mos os pedidos e o programa funcionou 
normalmente. 

Levantado um novo problema de sua parte, po¬ 
demos dizer que revisaremos o programa para ve¬ 
rificar o que está acontecendo. 

A impressoara TK-PRINTER não se encontra 
mais no mercado. 


“Prezados Senhores: 

Ao receber a fita brinde constatei que continha 
somente o programa “Formação de Figuras em Al¬ 
ta Resolução” e, assim mesmo, sem nenhuma ins¬ 
trução de como usá-lo. Como ainda sou leigo em 
“computes” não sei como rodá-lo. É possível 
mandarem-me as instruções por carta ou através 
da seção “Carta” da Microhobby? 

Outra dúvida: possuo a unidade de discos 5 1/4” 
e os programas publicados nas revistas não estão 
rodando bem (Exemplo: “Agenda Telefônica”, “Di¬ 
ve Bomber”). Há algum comando próprio para 
usá-los em disquete?” 


Luiz Paulo Pendenza 
Araraquara, SP. 


Caro Luiz, 


O programa “Formação de Figuras” é de fácil 


execução. Após digitar RUN haverá exibição, na 
tela, dos títulos e dos setores. 

A parte esquerda da tela será utilizada para fa¬ 
zer qualquer tipo de desenho, utilizando “X” e “. ”, 
onde “X” plota e “. ” não plota. 

À direita da tela será exibido o desenho de acor¬ 
do com a cor de fundo escolhida. 

No primeiro plano, o programa pede que se en¬ 
tre com a cor do fundo (de 1 a 7); em seguida, o 
setor, que deve ser representado por uma letra (de 
A a N) e um número (de 1 a 19); posteriormente, 
a linha (de 1 a 8) onde você deseja iniciar o 
desenho. 

Caso queira alterar a cor do fundo, a seta ou 
a linha, basta digitar “0”. 

Após completar a linha escolhida, pressione a 
tecla e o cursor passará à coluna seguinte, 
que aceitará apenas “0” ou “1”. O computador 
encarrega-se de preencher as próximas duas colu¬ 
nas, em decimal e hexadecimal. 

Para retornar ao modo texto, basta digitar 
FUNDO = 0. 

Quanto ao problema que você está encontran¬ 
do na utilização de disco no TK 2000, poderá ser 
sujeira no cabeçote do drive que impede a leitura 
ou a gravação de dados sejam perfeitas, ou a in¬ 
terface de disco deve estar apresentando algum pro¬ 
blema de mal contato. 

“Prezados Senhores: 

Tenho algumas dúvidas que exponho a seguir: 

Digitei o programa “Dive Bomber” e, após al¬ 
gumas modificações, achei muito bom. Estas mo¬ 
dificações, na verdade, creio que são três Bugs. 

1- A linha 360 DATA “03000800IF 003700” de¬ 
veria ser 360 DA TA “030008003300 4B00 ” para que 
a tabela de formas ficasse correta. 

2- Acrescentei 1795 VTAB 7:HTABFf PRINT 
TAB(H) “bbbbbbbb”; SPC(A): PRINT“b” para 
eliminar a mensagem impressa na linha 1770 an¬ 
tes de aparecer “Final da Partida”. 

3- Na linha 1605 há orientações para se movi¬ 
mentar para a linha 91900! Eu a eliminei e, apa¬ 
rentemente, o programa funciona normalmente. 

Meu TK 2000 tem um drive. Como o TK DOS 
é carregado na segunda página de vídeo, como pos¬ 
so fazer para rodar programas que utilizam a fun¬ 
ção MP, liberando maior área de RAM ou, em ani¬ 
mação, alterando MA com MP, sem destruir o TK 
DOS 3.3. 

O micro tem um problema que a assistência téc¬ 
nica não consegue resolver. Às vezes, quando uso 
LOA D ou RUN, para utilizar programas do dis¬ 
quete, o programa é destruído. Por este problema, 
tenho que ter todos os catálogos anotados e tudo 
em duplicata. 

Quero saber se alguma influência “esotérica”, 
ambiental, poderia criar este tipo de problema. 

Se souberem responder, gostaria de saber como 
se faz para se desenhar na página que não se está 
vendo, o que possibilita melhor efeito de anima¬ 
ção com o BASIC, diminuindo o pisca mento das 
figuras. 


Paulo Sérgio Panse Silveira 
São Paulo, SP. 


Caro Paulo, 


Agradecemos suas observações a respeito do pro¬ 
grama “Dive Bomber”, pois estão corretas. 
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Quanto à linha 1605, ela está errada, mas não 
interfere no programa, visto que a condição que 
ela verifica já foi vista na linha 1560. 

Quanto à primeira pergunta, aconselhamos que 
utilize: 


>LOMEM 16384 

> POKE 103,1 

> POKE 104,64 

> POKE 16384,0 

> NEW 


Estes comandos definem a posição de início de 
seu programa abaixo da MA, sem conflitos com 
o DOS . 

Com referência à segunda questão, o compor¬ 
tamento de seu computador não é normal. Isso é 
causado por defeitos no drive ou no computador 
(mal contato, por exemplo), variações bruscas na 
tensão ou falta de cuidados na manipulação dos 
disquetes. Por exemplo, presença de poeira ou fu¬ 
maça, impressão digital sobre o disco, etc... 

Quanto ao “pulo” da linha 1605 à 91900, você 
pode usar POKEs no arquivo de imagem para 
atualizar posições na página que não está sendo 
mostrada. 

“A Redação, 

Eu gostaria de saber como se utiliza a instru¬ 
ção DRA W, pois o manual de operação não ex¬ 
plica corretamente (pág.167). Com referência a 
DRAW A AT X,Y, como se utiliza os valores de 
A, X e Y 

Fiz um programa de agenda telefônica e tentei 
salvar os nomes e telefones em fita, através do co¬ 
mando STORE, onde poderia gravar, RECALL e 
ler os mesmos em fita. Só que não deu certo, pois 
só consegui salvar os números dos telefones. 
Pergunto: 

Seria possível salvar os dois? Como? Quais os » 
comandos utilizados.” 


Marcos Aurélio Lima Saraiva 
São Paulo, SP. 


Caro Marcos 

A instrução DRAW, usada no modo grá¬ 
fico de alta-resolução para desenhar figuras, 
admite valores dentro de um determinado 
limite. 

O exemplo apresentado no programa da 
pág.166, na linha 150 do Manual de Opera¬ 
ção, é assim definido: 


Exemplo: 150 DRAW 1 AT 139,30 ou 
DRAW A AT X,Y 
A = índice da tabela de fi¬ 
guras, (no caso seria a figura 
1 da mesma). 

X = coordenada X - repre¬ 
senta as colunas 
Y = coordenada Y - repre¬ 
senta as linhas 


A linha 150 acima citada quer dizer o se¬ 
guinte: que a figura 1 da tabela será desenha¬ 
da na tela, na posição 139 e 30. 


Clube de Usuários 


Adans Richard Jirschik 

R.Nazareno Donnini, 52 
05634 - São Paulo - SP. 

Área de interesse: Programas, 
Eletrônica. 

Alexandre Folie de Menezes 

R.Dom José Bares, 2599/202 
95100 - Caxias do Sul - RS. 
(Também possui TK 2000) 

Alexandre Rodrigues 

R.João Matheus Wanton, 74/ 
V.S.João 

18200 - Itapetininga - SP. 

Área de interesse: Programas 
Didáticos, Aplicativos. 

Antonio José de Melo Lopes 
Malicia 

R. Sabino Leandrini, 76 
09500 - S.Caetano do Sul - SP. 
Área de interesse: 
Radioamadorismo. 

Clóvis Stabel Kuplich 

Av. Getúlio Vargas, 1109 
93000 - São Leopoldo - RS. 

Área de interesse: Aplicativos 
(possui TK 83). 

Dante Grasso Jr. 

R. dos Chanés, 295-Casa 1/ 
Campo Belo 

04087 - São Paulo - SP. 

Área de interesse: Linguagem de 
Máquina (possui TK 83). 

Elson Wanderley Cruz 

R. Astarte, 140 - apto.101 
03446 - São Paulo - SP. 

Área de interesse: Contabilidade, 
Finanças, Estatística, Arquivos, 
(possui TK 82C) 

Ismael Sá Neto 

Av. Jaguari, 333/301 
90000 - Porto Alegre - RS. 

Área de interesse: Lazer, 
Educação, Programas(possui TK 
82C/CP500) 

Leandro Gomes 

R.Eng.Botelho Egas, 255 - 
Mandaqui 

02416 - São Paulo - SP. 

Área de interesse: Jogos, Lazer 
(possui TK 82C) 

Sandro José Holtz 

R. João Botene, 447 - V. 
Monteiro 

13400 - Piracicaba - SP. 

Área de interesse: Jogos, 
Aplicativosítambém possui 
TK 2000 II) 


TK 2000 e Compatíveis 

Fernando Araújo Lopes 

R. Itacema, 366 - apto.72 
04530 - São Paulo/SP. 

Área de interesse: Jogos, 
Linguagem de Máquina. 

Gildo da Silva 

R. Epaminondas Melo do Amaral, 
929 

02542 - São Paulo - SP. 

Helcio Cesar Hime 

Caixa Postal 44188 
22062 - Rio de Janeiro - RJ. 
Área de interesse: Aplicativos, 
Jogos. 

Jean Cario Binder 

R.Dr. Pedrosa, 264/502 B-Centro 
80000 - Curitiba - PR. 

Área de interesse: Jogos, 
Macetes, Utilitários, Aplicativos. 

Jorge Watanabe 

R.Freamunde, 103 - V.Canaã 
04382 - São Paulo - SP. 

Área de interesse: Edição de 
Texto, Aplicativos, Jogos. 

Luiz Cláudio de Souza Alexandre 

R.Nepomuceno, 84/casa 5 - 
Realengo 

21710 - Rio de Janeiro - RJ. 

Área de interesse: Jogos, 
Aplicativos (possui TK 2000 II). 

Marcos A. R. Franco 

R. Moçambique, 215 - Pq. Novo 
Oratório 

09000 - Santo André - SP. 

Waldir Julio Palma 

Av. Iguaçu, 2416/12 
80000 - Curitiba - PR. 

(possui TK 2000 II) 

Wellington B. de Albuquerque 
Filho 

R.Barão de Lucena, 124/1001 - 
Botafogo 

22260 - Rio de Janeiro - RJ. 
Área de interesse: Aplicativos 
Matemáticos, Jogos. 


TK 90X e Compatíveis 

Fábio Venuto Soares 

R.Desembargador Eliseu 
Guilherme, 31 - apto.33 
04004 - São Paulo - SP. 
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Progresso e Desenvolvimento: 
no lnformática/85 

Ana Lúcia de Alcântara 
Colaborou 
Solange Aparecida Menezes 


Trazendo como sempre inovações, debates e muita 
expectativa em torno de si, começa, mais uma vez, o maior 
evento da área de informática: o lnformática/85, que terá 
em seu tema institucional o retrato da imagem de “progresso 
e desenvolvimento" trazido pela Nova República. 


"Progresso e Desenvolvimento" é um te¬ 
ma que, segundo Wilson Lazarini, diretor 
técnico do PRODESP - Processamento de 
Dados do Estado de São Paulo e presiden¬ 
te do evento, tirando o seu papel mera¬ 
mente institucional, vai levantar questões 
em torno de assuntos sempre presentes 
em debates relacionados aos computado¬ 
res e suas aplicações no Governo Sarney. 
Legislação de software, registro das pro¬ 
fissões ligadas ao processamento eletrô¬ 
nico de dados, PLANIN - Plano Nacional 
de Informática e avaliação dos resultados 
obtidos pela área de informática no primei¬ 
ro ano da Lei de Informática são alguns dos 
aspectos a serem abordados em diversas 
sessões do Congresso. Estes temas ilus¬ 
tram, conforme afirmou Lazarini, o mo¬ 
mento político por que passa o País, mas 
refletem bem o direcionamento dado aos 
temas a serem debatidos durante a sema¬ 
na de 23 a 29 de setembro. 

As grandes inovações apresentadas es¬ 
te ano referem-se à sua organização. Con¬ 
forme disse o diretor do Prodesp, o lnfor¬ 
mática/85 foi todo estruturado com um 
ano de antecedência, o que possibilitou, 
segundo ele, a divulgação da planta da Fei¬ 
ra e a venda dos espaços (30 mil m 2 ) 
com quatro meses de antecipação. Hou¬ 
ve também a elaboração, adiantada, dos 
Anais do Congresso, que serão distribuí¬ 
dos para os congressistas 20 dias antes 
da realização do mesmo. 

0 presidente do INFO/85 destacou ain¬ 
da a importância que deve ser dada ao 
evento deste ano. Para Lazarini, o Brasil es¬ 
tá vivendo um salutar momento histórico, 
onde se discute, com bastante interesse, 
a realidade política do País. "Este momen¬ 
to", afirmou, "demonstra uma maturidade 
muito grande por parte, não apenas da so¬ 
ciedade como um todo mas, no caso es¬ 


pecífico da informática, dos profissionais, 
das indústrias e dos usuários". Ele apon¬ 
tou também, o espaço surgido nesta no¬ 
va fase histórica, que permitiu o debate so¬ 
bre temas incontestavelmente valiosos pa¬ 
ra a defesa da tecnologia nacional. 

Além de discussões acerca de assuntos 
relacionados à tecnologia, serão aborda¬ 
dos temas com conotações políticas. O 
presidente do evento destacou ainda a par¬ 
ticipação das Universidades. Estas, terão 
seu espaço não apenas na área de expo¬ 
sições, mas também no Congresso, onde 
haverá palestras, apresentação de proje¬ 
tos e estudos, levados à frente, nos cam¬ 
pus universitários de todo o Brasil. 

O objetivo maior de Wilson Lazarini com 
a organização da Feira e Congresso de In¬ 
formática é, segundo suas palavras, "fe¬ 
char o ciclo tecnológico de todos os as¬ 
pectos que envolvem a informática nacio¬ 
nal. Os resultados obtidos durante os cin¬ 
co dias de realização do Congresso devem 
envolver: o uso do computador e a elabo¬ 
ração de uma legislação forte, que prote¬ 
ja os valores nacionais". 

A Feira 

Recebendo inúmeros convidados do Ex¬ 
terior, a Feira deste ano, como todas as an¬ 
teriores, pretende servir de ponte para as 
empresas expositoras, viabilizando futuras 
negociações internacionais. Este ano, re¬ 
tornando ao Parque Anhembi, em São Pau¬ 
lo, as empresas nacionais ocuparão a 
maior parte do Palácio de Exposições (com 
80% de sua área ocupada). 

As inovações da Feira centram-se basi¬ 
camente na programação de horários pa¬ 
ra visitação pública: segunda-feira reser¬ 
vado à imprensa e sexta-feira aos 
estudantes. 



lnformática/85 
Wilson Lazarini , 


presidente do lnformática/85. 


Na abertura estarão presentes vários mi¬ 
nistros, entre estes. Marco Maciel da Edu¬ 
cação e provavelmente o presidente da Re¬ 
pública, José Sarney. Após os discursos 
se seguirão os debates, palestras e terá iní¬ 
cio o maior acontecimento anual da infor¬ 
mática brasileira. Para a estruturação da 
programação do XVIII Congresso houve a 
participação de toda a comunidade de in¬ 
formática, através de pesquisa realizada 
pela empresa organizadora dos eventos, 
juntamente aos usuários, no sentido de 
obter subsídios na elaboração dos semi¬ 
nários, debates e afins. "Foram ouvidos 
aproximadamente 80 usuários filiados à 
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Servimec ministra curso 
M-LOGO para educadores 


SUCESU - Sociedade de Computadores e 
Equipamentos Subsidiados", diz Adrian Ri¬ 
cardo Levinson, diretor da divisão de Re¬ 
lação com o Usuário do Congresso. 

Em relação ao Congresso do ano pas¬ 
sado, Adrian admite que "este ano estará 
bem mais organizado, com muito mais 
pessoas e novidades". Os diretores pre- 
vêem a presença de cinco mil participan¬ 
tes. Estão sendo divulgados 160 trabalhos 
técnicos - dos 502 recebidos a realiza¬ 
ção de 10 sessões plenárias, envolvendo 
Introdução ao microcomputador, Informá¬ 
tica a serviço do engenheiro, do adminis¬ 
trador de Recursos Humanos, economis¬ 
tas e financistas, entre outros. Dentro da 
programação constam ainda o III Seminá¬ 
rio de Informática e Biblioteconomia; com 
a participação de mais de 40 entidades 
não vinculadas diretamente à informática 
e a presença de autores nacionais autogra¬ 
fando e divulgando suas obras. 

Telecongresso 

Para a maioria dos diretores responsá¬ 
veis pela organização do XVIII C.N.I., o 
acontecimento que terá maior destaque - 
por ser inédito - será a transmissão de 
eventos, via Embratel - Empresa Brasilei¬ 
ra de Telecomunicações -, para 26 cidades 
do País. 

Com duas horas de transmissão diária 
para as salas Vips (de teleconferência) da 
empresa estatal, a programação foi divi¬ 
dida em três partes, com início previsto 
para as 15:30 horas. Será composto de re¬ 
portagens, com "Flashes" de conferên¬ 
cias, da Feira e demais atividades do Con¬ 
gresso; entrevistas com congressistas, au¬ 
toridades políticas, personalidades estran¬ 
geiras e debates com participação dos 
convidados e conferencistas. Os temas es¬ 
tipulados para estes debates são: Política 
Nacional de Informática; Telecomunica¬ 
ções; Profissional de Processamento de Da¬ 
dos, Automação Bancária e Comercial. 

Circuitos profissionais 

Conforme afirmou Celso Simões Mar¬ 
ques, diretor de Eventos Especiais, diaria¬ 
mente os congressistas participarão de vi¬ 
sitas organizadas a empresas e grandes 
usuários de computadores, para conhece¬ 
rem de perto suas tecnologias. Entre as 
empresas participantes do evento, já con¬ 
firmadas, estão: IBM, LABO, Elebra, Inter¬ 
graph, Villares, CET, Cosipa, Digirede, CTI 

- Centro Tecnológico de Informática, CPqD 

- Centro de Pesquisa e Desenvolvimento, 
CBTU, Ford, Burroughs, Itautec e Maxtec. 

Os congressistas interessados nos cir¬ 
cuitos profissionais terão todos os dias 
ônibus gratuitamente para levá-los às em¬ 
presas visitadas. 
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A Servimec Informática e Serviços es¬ 
tá recebendo inscrições de educadores 
de pré-escolas e primeiro grau para for¬ 
mar sua nova turma do curso M-LOGO 
deste semestre. 

Após o sucesso do curso piloto, reali¬ 
zado no primeiro semestre deste ano, Gil¬ 
berto Gil Ferreira Camargo, analista de 
sistemas na divisão educacional da em¬ 
presa, está otimista quanto a repercus¬ 
são do curso e analisa o progresso alcan¬ 
çado: "no curso piloto participaram no¬ 
ve pessoas, todas elas eram nossas co¬ 
nhecidas. O trabalho, durante o curso, foi 
realizado em grupo, com a participação 
e colaboração de todos, o que nos aju¬ 
dou a aprimorar nossa apostila e supe¬ 
rar algumas falhas". Ele acrescentou que 
as novas apostilas já estão prontas, es¬ 
perando apenas o início do próximo 
curso". 

O M-LOGO é uma versão em portu¬ 
guês da linguagem LOGO, criada por 
Seymour Papert, destinada à educação. 
Segundo Gil Ferreira, esta linguagem é 
ideal para a criança desenvolver o apren¬ 


dizado, principalmente na área de Exatas 
e, paralelamente, aprender computação. 

Gil explica que a introdução do com¬ 
putador na educação é muito perigosa e 
pode até prejudicar a criança, dependen¬ 
do da forma como é aplicado. "A preo¬ 
cupação de Papert, ao criar o LOGO, foi 
exatamente desenvolver uma linguagem 
para exercitar o raciocínio da criança e 
não apresentar-lhe tudo pronto simples¬ 
mente", explica. 

O curso M-LOGO terá a duração de 30 
horas com aulas práticas, exercícios, pes¬ 
quisas "e muito pouca teoria", diz Gil. 
Além de apostilas, os alunos contarão 
com seis micros, que estarão à disposi¬ 
ção para aulas práticas, sendo usados 
por dois alunos em cada equipamento, 
no máximo. 

A divulgação do curso será feita atra¬ 
vés de malas-diretas, exclusivamente pa¬ 
ra educadores de primeiro grau e pré- 
escola, "já que os professores têm pou¬ 
co conhecimento da importância desta 
linguagem para a educação através de 
computadores". S. A. M. 


Impressora Remington 
para micros 



A Remington está incorporando à sua 
linha de produtos, voltados a aplicações 
em automação de escritórios, sua im¬ 
pressora IM-217, que pode ser conecta¬ 
da a diversas linhas de microcomputado¬ 
res nacionais. 

A IM-217 está no mercado desde ja- 


Impressora IM-217 da Remington 


neiro deste ano e foi desenvolvida para 
ligações paralelas do tipo Centronics ou 
remotas de saída, com computadores de 
conexão serial RS232C. Suas principais 
características são: impressão por mar¬ 
garida, com 106 caracteres, espaçamen¬ 
to vertical - 1/1, 5/2 e 2,5 - e 17,5 cps 
de velocidade. 

























Computação só para crianças 


Uma escola de computação que usas¬ 
se métodos de simples assimilação e 
despertasse o interesse para o mundo da 
informática era o objetivo do engenhei¬ 
ro mecânico David Zumerkorn. E assim 
nasceu a Microboys, uma escola espe¬ 
cializada no ensino de computação para 
crianças. 

"Nós queremos fazer do computador 
um amigo da criança, fazendo-a usufruir 
de toda a capacidade do equipamento e 
não apenas aprender a fazer joguinhos", 
diz Zumerkorn. E para esse aprendizado 
as crianças contam com dez microcom¬ 
putadores TK 85, com monitores de ví¬ 
deo, que elas utilizam desde o primeiro 
dia de aula. Para auxiliá-las, David e seu 
sócio desenvolveram uma apostila, total¬ 
mente ilustrada, fruto de um ano de pes¬ 
quisas em apostilas internacionais do ra¬ 
mo, e adaptada à mentalidade da crian¬ 
ça brasileira. 

Pela procura, uma escola como esta é 
o que estava faltando no mercado. Se¬ 
gundo David, a escola de Piracicaba, que 
funcionou durante dois anos e encerrou 
suas atividades quando seus diretores 
mudaram-se para São Paulo, chegou a ter 
120 alunos. Em São Paulo, onde a Micro¬ 
boys tem duas unidades e funciona há 
três meses, só a filial da alameda Cam¬ 
pinas já possui 50 alunos. Pelas, perspec¬ 
tivas de seu proprietário, esta unidade 
chegará a 150 alunos até o final do ano. 

A Microboys ministra cursos de BASIC 
em aproximadamente dois meses, para 
crianças a partir de sete anos. Os alunos 
podem optar entre uma, duas ou três au¬ 
las semanais, conforme sua disponibili¬ 
dade de tempo. As aulas são totalmente 
práticas e apostiladas, seguidas pela 
orientação do professor. 

"Queremos preparar a criança para a 
tecnologia", diz David, que se queixa da 
falta de informação dos pais de alunos 
em geral. "Eles querem por os filhos na 
escola de computação porque achamim- 
portante, mas não sabem bem porque", 
comenta. Essa desiformação, muitas ve¬ 
zes, se estende aos alunos, que se em¬ 
polgam com as peripécias do equipa¬ 
mento mas não sabem exatamente qual 
sua importância. 

É o caso, por exemplo, do Rogério, 10 
anos, aluno da Microboys, que estuda 
numa escola estadual e não possui mi¬ 
crocomputador em casa. "Dizem que é 
a coisa do futuro", ironiza ele, meio inde¬ 
ciso para responder se gosta ou não de 
informática. Outros se mostram mais es¬ 
clarecidos e, por isso, são mais vaidosos 


ao apresentar seus conhecimentos. Co¬ 
mo o Eduardo, também de 10 anos, alu¬ 
no de um colégio particular e que pos¬ 
sui um microcomputador em casa. "É le¬ 
gal porque dá para fazer todas as lições, 
estudar e jogar", comenta ele sem tirar 
os olhos do programa que está aprenden¬ 
do na Microboys, após algumas semanas 
de aula. 

David Zumerkorn confia no desenvol¬ 
vimento da informática no ensino e man¬ 


tém o faro sempre alerta para os novos 
ventos do mercado. Por isso, lançará bre¬ 
vemente o livro "Informática na Escola", 
prevendo a inevitável introdução de mi¬ 
crocomputadores em escolas públicas. 
"A informática é uma fatalidade", senten¬ 
cia David. "As pessoas que não soube¬ 
rem manipular um computador, se sen¬ 
tirão inferiorizadas daqui algum tempo". 

S.A.M. 


Microtela melhora 
resolução do vídeo 

M 


A Master Sting está lançando no mer¬ 
cado uma tela antireflexiva destinada a 
aumentar a resolução dos televisores 
adaptados, ou mesmo dos monitores de 
vídeo que não possuem esta caracte- 
rítica. 

Confeccionada em polyester e acrílico, 
a Microtela filtra os reflexos das luzes ex¬ 
ternas e aumenta a resolução da ima¬ 
gem, eliminando o cansaço visual. A mi¬ 
cro tela é apresentado no tamanho 23 
cm. x 29 cm, nas cores verde e âmbar, 
para televisores adaptados, e incolor, pa¬ 
ra monitores que apresentam tela anti¬ 
reflexiva. Sua fixação é feita através de 


fita adesiva de dupla face. 

Atualmente a empresa só fabrica Mi- 
crotelas para monitores 12 polegadas, 
pois, segundo seus diretores, as telas 
maiores possuem um formato convexo 
e necessitam de uma especial que se 
adapte as suas formas. Elas já estão sen¬ 
do desenvolvidas e estarão brevemente 
no mercado. 

As Micro telas disponíveis estão sen¬ 
do comercializadas pela Deltasoft Infor¬ 
mática em sua loja, em São Paulo, ou por 
reembolso postal para outros Estados e 
interior, ao preço de três ORTNs. S.A.M. 



Computadores e crianças na Microboys 
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Aparelho reproduz programas 



A interface LH- 


Todo profissional ou hobbista que gra¬ 
va seus programas em cassetes sabe co¬ 
mo é trabalhoso adaptar um gravador co¬ 
mum para fazer esse trabalho. Luiz Car¬ 
los Zambom, diretor da RCC Radiocomu- 
nicações, também sabe. Por isso, a em¬ 
presa lançou no mercado a interface 
LH-3, que regula o nível de sinal do gra¬ 
vador para a entrada do micro. 

O LH-3 permite ainda a gravação de 
programas diretamente de um cassete a 
outro, sem a necessidade de usar o mi¬ 
crocomputador. Além disso, no painel 
frontal há uma entrada para microfones, 
que permite ao usuário interromper uma 
gravação para classificar os programas. 

Este aparelho é o primeiro do gênero 
no mercado. O diretor da RCC concorda 
que seu novo produto pode contribuir 
com a pirataria, mas argumenta que '"os 
programas mais sofisticados são blo¬ 
queados e não permitem reprodução". 
Além disso, um programa bem feito e 
vendido a preço acessível, como muitos 
que estão no mercado, não estimula nin¬ 
guém à sua reprodução, pois além de não 
ser vantajoso, o software perde a 
qualidade. 


Segundo o diretor da empresa, o LH-3 
é ideal para programadores que desejam 
reproduzir seus próprios trabalhos. "Pa¬ 
ra isso, o usuário deve usar gravadores 
e fitas de boa qualidade", recomenda Luiz 
Carlos, "e com o uso do aparelho não há 


necessidade de adaptação". 

O LH-3 funciona perfeitamente adap¬ 
tado aos micros TK 85, 90X, 2000 e 
compatíveis, em 'Low' ou 'High Speed'. 
Ele já está à disposição no mercado atra¬ 
vés de revendedores.S.A.M. 


Calendário 
do Mês 


2 - 3/9 . Rede RENPAC - Quando e co¬ 
mo melhor utilizá-la? - São Paulo- Infs.: 31 
Informática, telefone: (011) 521-9509. 

2 - 4/9 . Centros de Informações - Pa¬ 
norama e Implementação - Rio de Janei¬ 
ro. Infs.: Servimec - telefone (011) 
222-1511. 

2 - 3/9 . Banco de Dados - Metodologia 
de projeto de sistemas em... São Paulo. 
Infs.: Intertec Serviços, telefone: (011) 
259-2055/ (021) 259-2055 

4 - 6/9 . Projeto e Sistemas de Banco 
de Dados - São Paulo. Infs.: Servimec. Te¬ 
lefone (011) 222-1511. 

4/9 . Gráficos - Aplicações comerciais 
e administrativas. Intertec Serviços. Tele¬ 
fone (011) 259-2055; (021) 259-2055. 

6/9 . Uso de microcomputadores em 
aplicações de engenharia, CAD e Gestão 
Industrial. São Paulo. Infs.: IECAT - Telefo¬ 
ne (011) 285-2490. 

9 - 15/9 . Feira Nacional da Ind. Eletro- 
Eletrônica e Mecânica do Nordeste. Reci¬ 
fe/PE. Promoção Alcântara Machado do 
Nordeste. 

9 -10/9 . Avaliação e Análise da eficiên¬ 
cia de programas - Rio de Janeiro. Infs.: 


Inst. Bras. Pesquisas em Informática. Tel.: 
(021) 286-6891 - 226-2913. 

10 -11/9 . Auditoria de mini e microcom¬ 
putadores. S. Paulo. Infs.: ACI - Assess. e 
Controles Internos. Telefone (011) 280-5648 

- 852-7513. 

9 - 24/9 . Introdução ao projeto de cir¬ 
cuitos integrados - N-MOS- Carga de apli¬ 
cação II. - São Paulo. Infs.: IECAT - Telefo¬ 
ne (011) 285-2490. 

9 - 10/9 . A segurança necessária em 
PD. São Paulo - Infs.: Servimec - Telefone 
(011) 222-1511. 

11 - 19/9 . Planilhas Eletrônicas (Visi- 
Calc/SuperCalc). Rio de Janeiro - Infs.: Ins¬ 
tituto de Tecnologia ORT. Telefone (021) 
286-7842. 

11 -13/9 . Como melhorar o rendimen¬ 
to do computador - São Paulo. Infs.: Com- 
pucenter. Telefone (011) 255-5988. 

16 - 18/9 . Protocolos de comunicação 
de dados IBM - Rio de Janeiro. Infs.: GKL 

- Treinamento Empresarial Avançado. Te¬ 
lefone (021) 242-2912/222-1609. 

18 - 19/9 . Segurança Física, Lógica e 
ambiental na área de produção do centro 
de computação. São Paulo. Infs.: ACI - As- 


sessoria e Controles Internos - Telefone 
(011) 280-5648/852-7513. 

18 - 20/9 . Metodologia de Programa¬ 
ção. Rio de Janeiro. Telefone (021) 242-2912/ 
222-1609. 

18/9 . Novos conceitos e recursos para 
gerência de informática. São Paulo. Infs.: 
Servimec - Telefone (011) 222-1511 

18/9 . LOGO, Operação de microcompu¬ 
tadores; DBASE. São Paulo. Infs.. (ídem 
acima). 

18/9 . Extensão universitária em Análi¬ 
se e Auditoria de Sistemas . Falcudade de 
Engenharia Objetivo. São Paulo. P/Telefo¬ 
ne (011) 578-6455 - R.213. 

23 - 29/9 . lnformática/85. (Feira e Con¬ 
gresso). Parque Anhembí, SP. Promoção: 
Guazzelli Associados. 

23 - 26/9 . Processamento de textos: 
WORDSTAR. Rio de Janeiro. Infs.: Insti¬ 
tuto de Tecnologia ORT. Telefone(021) 
286-7842. 

9 -11/10 . Projeto de Sistemas em Ban¬ 
co de Dados. Rio de Janeiro. Infs.: GKL. Te- 
lefone(021) 242-2912/1609 

14 - 24/10 . Linguagem BASIC sob 
CP/M. Rio de Janeiro. Infs.: (idem acima) 
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Se você possui um 
TK 2000, de hoje em 
diante não pode mais 
dispensar os programas 
Microidéia para o seu 
micro. 

Com eles, você con¬ 
trola estoques, custos, 
receitas e contas bancá¬ 
rias. Programa as finan¬ 
ças domésticas e as de 
suas empresas. E cadas¬ 
tra seus clientes, forne¬ 
cedores ou amigos. 


O software Microidéia 
vai transformar seu 
TK 2000 numa podero¬ 
sa ferramenta profissio¬ 
nal, pessoal ou domésti¬ 
ca. Capaz de realizar em 
segundos tarefas que 
lhe tomavam um grande 
tempo e esforço. 

Totalmente desenvol¬ 
vidos no Brasil, todas as 
instruções de tela e ma¬ 
nuais são em português. 
E toda vez que lançar¬ 
mos uma nova versão 


de um software, você 
poderá trocá-la por seu 
programa original. 

Em cassete ou 
diskette, já temos para 
TK 2000: Orçamento 
Doméstico, Controle 
Bancário, Mala Direta, 
Mini Banco de Dados, 
Fluxo de Caixa, Contas 
a Pagar, Contas a Rece¬ 
ber e Controle de Esto¬ 
ques, todos compatíveis 
com o Apple e 
TK 2000 II. 


Procure já um dos 
nossos revendedores e 
abra seu TK 2000 para 
o software Microidéia. 

E sinta uma nova estre¬ 
la nascendo ao seu lado. 

Mas, se em sua cida¬ 
de não tem revendedor 
Microidéia, peça qual¬ 
quer um destes progra¬ 
mas pelo correio. 

Em cassete eles 
custam Cr$ 55 mil. 

Em diskette, o preço 
é Cr$ 250 mil. 


TK 2000. Open for 
Software Microidéia. 



Estou enviando um cheque do banco __ 

_de n.°_nominal à Microidéia Ltda. 


Microidéia Nome _ 

Caixa Postal 6151 End_ 

20022 / Rio de Janeiro / RJ Bairro _Cidade 

Tel.:_CEP_ 

U Envie-me um catálogo Micro _ 

de programas Microidéia. 


Sim! 

Quero adquirir 
o(s) segui nte(s) 
programa(s) 
Microidéia: 


Programa K7 Disk Quant. Preço 


TOTAL 


T 


J 































RESENHAS DE SOFTWARE 

Fluxo de Caixa TK 2000 


Marcos Lorenzi 


Fluxo de Caixa foi desenvolvido para fa¬ 
cilitar, aos usuários do microcomputador 
TK 2000, a obtenção de controle eficien¬ 
te das entradas e saídas financeiras de de¬ 
terminada empresa e/ou pessoa física. 

Desenvolvido pela Microidéia, Fluxo de 
Caixa será comercializado em fita casse¬ 
te, em uma embalagem de qualidade, con¬ 
tendo o nome do fabricante e dos compu¬ 
tadores com os quais são compatíveis. 

O programa é de fácil assimilação, for¬ 
necendo ao usuário respostas com dados 
sempre atualizados. 

Como Funciona 

Para carregar o programa no micro, o 
usuário deve proceder da seguinte 
maneira: 

1. posicionar a fita no início da gravação; 

2. se for necessário, ajustar o volume/to¬ 
nalidade do gravador; 

3. digitar MP e < RETURN >. Nesta eta¬ 
pa, a tela ficará toda "listrada", e o usuá¬ 
rio deverá digitar LOADA; 

4. pressionar a tecla PLAY do gravador 
para carregar o programa na memória do 
computador. 

5. pressionar a tecla < RETURN > após 
sete segundos; 


6.digitar RUN, após o programa ter sido 
carregado na memória. 

O programa apresenta um menu de op¬ 
ções, onde o usuário irá opinar em qual 
dos itens ele deseja iniciar o seu trabalho. 

No caso de ser seu primeiro contato 
com, o programa, logicamente você não 
fará nenhuma inclusão. 

Sendo assim, a opção indicada é a pri¬ 
meira: "lançamentos". O programa permi¬ 
te, no máximo, a inclusão de 500 lança¬ 
mentos que estão divididos em cinco cam¬ 
pos para serem preenchidos. 

Após efetuar os lançamentos, escolha 
qualquer um dos dois itens restantes. 

O programa oferece opções de pesqui¬ 
sas através de um menu secundário: 

1. descrição do lançamento; 

2. por data do lançamento. 

A exibição do lançamento pode ser fei¬ 
ta através da planilha ou pelo extrato que 
mostrará ao usuário a movimentação fei¬ 
ta até o último registro. 

Ao final do trabalho, o usuário tem a 
possibilidade de alterar o saldo inicial do 
arquivo de lançamentos, que pode ser feito 
automaticamente sem causar danos nos 
registros já existentes. 

A manutenção de arquivo permite que 
se altere a data-base definida no início de 
seu trabalho, mas ele deve prestar muita 


atenção porque, ao concluir esta transa¬ 
ção, os lançamentos anteriores à nova da¬ 
ta, serão perdidos e o saldo inicial 
recalculado. 

Para que todo trabalho realizado não seja 
perdido, o programa possibilita salvar ar¬ 
quivos em fita cassete e também lê-los, 
caso se necessite fazer alguma modifica¬ 
ção em seus arquivos. 

O Manual L 

Junto com a fita, vem um manual com 
as instruções do programa. Este apresen¬ 
ta uma listagem bem simplificada, sendo 
acessível às pessoas que não possuem 
muito conhecimento de computação. 

As explicações sobre o funciomento do 
programa estão muito bem detalhadas, 
não dificultando o entendimento das 
mesmas. 

Por ser um aplicativo comercial, e desen¬ 
volvido para a linha TK 2000 e compatí¬ 
veis, Fluxo de Caixa é um programa que 
ajudará muito os empresários e/ou pessoas 
físicas a obterem um controle preciso e 
atual de suas movimentações diárias. 

Ele apresenta uma boa qualidade, que 
agradará principalmente àqueles que pos¬ 
suem TK 2000, auxiliando-os na explora¬ 
ção dos recursos de seus equipamentos. 


Controle de Estoque 

Fábio Augusto Polônio 


É mais um lançamento da MultiSoft In¬ 
formática, que deverá fazer sucesso jun¬ 
to ao usuário de TK 90X e compatíveis, 
com 48kBytes de memória RAM. 

O programa Controle de Estoque é um 
sistema de gerenciamento de operações, 
aplicado durante verificação qualitativa 
de produtos. Ele permite o controle de 
até 420 produtos por arquivo, sendo de 
fácil operação. Além de apresentar bons 


recursos de edição e formatação. 

Cada registro possui vários campos, 
possibilitando uma ótima visualização 
das informações contidas no arquivo. 
Permite também a atualização, pesquisa, 
calculando, automaticamente, ponta de 
estoque e quantidade a ser encomenda¬ 
da. Cada módulo de informação oferece 
opção para cópia impressa. 

É possível também fazer uma discrimi¬ 


nação do produto por nome e número, 
sendo este último o campo chave. 

Após criar o cadastro, o programa per¬ 
mite a alteração e cancelamento do pro¬ 
duto cadastrado, fornecendo, inclusive, 
um resumo financeiro e listagens sumá¬ 
rias ou detalhadas dos produtos. 

Este programa será vendido em fita 
cassete. 
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RESENHAS DE SOFTWARE 


Geometria Descritiva TK 90X 


Marcos Lorenzi 


Desenvolvido para o novo equipamen¬ 
to da Microdigital, este é um programa 
educativo, auto-explicativo, com ilustra¬ 
ções coloridas e noções fundamentais de 
Geometria Descritiva: plano horizontal e 
vertical, interseção dos planos, semi- 
planos, quadrantes e planos bi-setores. 

Este processo foi fundamentado e sin¬ 
tetizado apenas no século XVIII pelo ma¬ 
temático francês Gaspard Monge. 

Antes deste período, os arquitetos res¬ 
ponsáveis pelas grandes obras da Idade 
Média se defrontavam com imensos 
problemas. 

Muitas vezes usavam traçados pessoais 
que raramente eram transmitidos, sendo 
destruídos ao final da obra. 

Curiosamente o método Monge perma¬ 
neceu durante algum tempo como objeto 
de grande sigilo, pois o sistema era utili¬ 


zado nos projetos de fortificações, sendo 
considerado ''segredo militar". 

O Programa 

A Geometria Descritiva tem como me¬ 
ta representar sobre um plano as figuras 
do espaço, resolvendo com relativa facili¬ 
dade problemas de geometria de três di¬ 
mensões, usando apenas duas. 

Gaspard Monge considerou a existência 
de dois planos perpendiculares entre sí, 
que receberão as projeções das figuras a 
serem estudadas. 

Características do programa 

O programa apresenta uma leitura de fá¬ 
cil entendimento, ajudando aos usuários 
que não possuem muito conhecimento de 


geometria descritiva. 

As ilustrações, que acompanham as ex¬ 
plicações, estão muito bem elaboradas, 
transmitindo com clareza, suas definições. 

A estrutura do programa, com relação 
à distribuição dos itens, está disposta de 
uma forma seqüêncial e lógica para que o 
usuário não se confunda com as explica¬ 
ções anteriores. 

O programa possui uma boa apresenta¬ 
ção, seguida de um histórico do assunto. 

Ao final da análise, concluímos que o 
programa equivale a uma aula introdutó¬ 
ria sobre geometria descritiva. 

Os usuários do TK 90X podem tirar óti¬ 
mo proveito do software, como aprendiza¬ 
do inicial de conceitos que podem ser 
adaptados em exercícios complementares. 


SEU MICRO EXPLORADO AO MÁXIMO! 


0 SOFTWARE CIBERTRON, já tradicional no TK 85 e consagrado pelos peritos como a 
melhor opção para o TK 2000, está agora disponível também para o moderníssimo 
TK 90X com as mesmas características de qualidade: Sistema Multigravação, poder£ 
sas rotinas em linguagem de máquina e instruções detalhadas. Qualquer que seja 
o seu TK, explore-o ao máximo com CIBERTRON SOFTWARE. 


T K 2 0 0 0 


Falcons 

Xadrez 

Bolo 

Eliminator 
Space Eggs 
Grand Prix 


Simulador de Voo 
Ceiling Zero 
Gamma Goblins 
Os Utilitários: 
Graphs 2000 
ROM 2000 


Inquestionavelmente o melhor 
software produzido p/ TK 2000. 


T K 9 0 X 

Simulador de Vôo (Manual em Português) 
Túmulo do Drácula (Tridimensional) 
Pac-man e Campo Minado 
Alta resolução gráfica, som e cores. 

T K 8 5 

Pinball Corrida Milionária 

Tourada TK Word (Aplicativo) 

Outros 12 programas em nossa lista. 


Se você preferir,envie cheque nominal cruzado à Cibertron Eletrônica Ltda - Caixa 
Postal 17.005 - CEP 02399 SP, para receter os programas em sua casa. Remessas em 
3 dias úteis. Jogos a Cr$23.900 cada - Utilitários e Simulador de Vôo para TK 2000 
e TK 90X Cr$29.800 cada - TK Word e Simulador de Vôo para TK 85 Cr$25.000 cada. Ga¬ 
rantia integral. Encontre toda linha Cibertron na Magnodata Tel. (011) 255 7653. 

Revendedores autorizados: 

mSÈ SANDK 















Dois Programas Classificadores para 

o TK 85 


Hebert Kimura 

Texto final: Álvaro A. L. Domingues 


0 autor faz a tradução comentada para o TK 85 de dois 
programas desenvolvidos originariamente para o TK Apple:, 
mostrando o que fazer, instrução por instrução. 


Esses dois programas são traduções dos programas Classifi¬ 
cadores publicados na Microhobby 16 e 18 para microcomputa¬ 
dores compatíveis com o Apple. 


Alguns leitores com um conhecimento mais avançado de com¬ 
putação podem, examinando os programas desenvolvidos para 
o Apple e TK 85, tirar suas próprias conclusões. 


Programa Classificador 1 


1 P E M +HERBER7 KIMUhH 
40 REM ENTRRDR DE UPL0RE5 
45 FPS7 

bõ PRIN7 :: COLOQUE 0 NUMERO DE 
lLlMENTOS H :: :: CLPS3 lr 1UHK :: 

55 INPU7 N 
50 DIM P; (N3 
70 FOR 1=1 70 N 
30 5CR0LL 

30. RRIN7 :: EN7RE COM 0 ELEMbNTÜ 

; I 

100 INPU7 P(I3 
105 NEX7 I 
110 CL5 

120 REM :: 0LR551F10PCP0 !! 

130 FOR X=1 70 N-l 
140 FOR Y = X 70 N 

150 IF P (X) >P CY3 7HEN G05Ü5 230 
150 NEX7 Y 
170 NEX7 X 

130 REM :: IMPRE55P0 DE UPL0RE5 :: 
135 5L0U 

190 FOR 1=1 70 N 
2 O 0 5 0R 0 L L 
205 RRIN7 PCI) 

210 NEX7 I 
220 570P 

230 REM 7R0CP DE UPLQRES 
240 LE7 PUX = P(X) 

250 Liz i P ( X ) = P ( Y 3 
2 50 L iz 7 P (Y 3 = P U X 
270 RE7URN 


Programa Classificador 2 


50 REM EN7RPDP DE UPLQRES 
60 RRIN7 COLOQUE 0 NUMERO DE 
ELEMEN70S :: .. :: P 0LP55IFICPR" 

70 INPU7 N 
50 DIM P (N3 
35 0L5 

30 FOR 1=1 70 N 

100 PRIN7 P7 3:3; :s COLOQUE 0 ELE 
MEN7Q S! ; I 
120 INPU7 P(13 
130 OLS 
140 NEX7 I 
150 OLE 

160 REM 0LP55IFIOPCPO DO UETQR 

P (13 S! 

170 FOR 1=2 70 N 
ISO LE7 X =P (13 
130 LE7 PU = 1 
200 LE7 FIM = 1 

210 IF PU = FIM 7HEN 0070 250 

220 IF P (PU 3 X 7HEN 0070 23O 

d. d 4 Li ü b Ü b 3 2 0 

223 0070 250 

230 Lb i PU=PU+1 

240 0070 210 

250 NE.X7 I 

260 RbM :! IMfhES5P0 D05 UPLQRES 
C L P 5 51FIC P D 0 5 !: 

270 3CR0LL 

272 PRIN7 :: ELEMEN705 CLPS5IFICP 
DOS s ‘ 

230 FOR 1=1 iO N 
235 5CR0LL 
230 PRIN7 P(13 
300 NEX7 I 
310 57OP 

320 REM 5U5R07INP DE INSERCPO 

330 FOR U = I-1 70 PU S7EP -1 

340 Lb7 P (J + 1) =p íU3 

350 NEX7 U 

350 Liz.7 P (PU3 = X 

370 RE7URN 


Técnicas de Tradução 
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Traduzir programas consiste em procurar que um determina¬ 
do computador resolva o mesmo algoritmo que outro, respeitando 
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as suas limitações. Em geral, isso requer pelo menos um conhe¬ 
cimento razoável de computação e dos manuais de ambos os 
computadores. 

A rigor, sem levar em conta características gráficas, compu¬ 
tadores com os mesmos recursos devem resolver os mesmos 
problemas . Os programas apresentados são algoritmos de uso 
comum em software, em geral aparecendo como sub-rotinas de 
programas maiores. Desta forma, podemos seguramente traduzi- 
los de um computador de uma linha para outra. Foi o que foi fei¬ 
to neste artigo. 

Descreveremos agora as técnicas de tradução empregadas em 
cada uma das instruções. 

A Instrução INPUT 

Esta instrução (Tabela I) espera que o usuário introduza um 
dado na memória do computador. Este dado poderá ser armaze¬ 
nado numa variável numérica (X, por exemplo) ou alfanumérica 
(X$, por exemplo), dependendo da natureza do dado que dese¬ 
jarmos introduzir. Ocorrerá erro se tentarmos introduzir um da¬ 
do alfanumérico numa variável numérica. 


TABELA 1 - instrução INPUT 

Instrução 

Apple 

TK 85 

INPUT 

sim 

sim 

INPUT"mensagem" 

sim 

não 


Note que na linha Apple aparece a instrução INPUT com uma 
mensagem e isto não é admitido pelo TK 85. Além disso, na li¬ 
nha Apple o resultado da entrada é mostrado imediamente a se¬ 
guir à mensagem impressa. Para conseguir o mesmo resultado 
na linha dos micros TK 85, devemos dividir a instrução em três 
linhas. Por exemplo: 


Apple: 

10 INPUT "1 + 1 =";N 
TK 85: 

10 PRINT "1 + 1 = 

20 INPUT N 
30 PRINT N 

A instrução LET 

A instrução LET possui a finalidade de atribuir um valor nu¬ 
mérico ou alfanumérico à uma variável. Ele é comum às duas 
linhas de computadores (Tabela II), porém ela não pode ser omi¬ 
tida no TK 85. 

Quando encontramos uma linha no Apple, onde a palavra LET 
foi omitida, devemos apenas acrescentar o LET. Por exemplo: 




RARA TE KA 

o mais sensacional jogo para o 
TK 2000" 

Você é treinado no KARATEKA, 
um tipo de karatê. Solitário e desarmado 
terá que salvar sua amada, a princesa Akiko das 
mâos de Akuma, seu raptor. Com vários níveis 
de dificuldade, é o mais elaborado e perfeito 
programa desenvolvido para o TK 2000. 
Qualidade gráfica e sonora inigualáveis. 

Disponível: Áudio Stúdio — Amaroson — 

Breno Rossi — Bruno Blois — Cinótica — Curt Lab. — 
Eletrônica Santana — Fotóptica — Mesbla — Sears — 
Pão de Açúcar — Informações à Planecon 
Informática Ltda. Av. Água Fria, 925 — CEP: 02333 — 
fone (011) 204.2777 — São Paulo — SP. 


PROTEJA- 

o seu 

niCROCOnPUTRDOR 


COM FILTRO DE 
LINHA 



ruído eletrico 
C om íd IN TERFERÊNCIA : 

RÁDIO FREQUÊNCIA (RF) 




contra p,cos DE voltagem 


TRANSIENTES DE TENSÃO 


(\j^+znsjL 


POTÊNCIA: ATINGE ATE 1,5 KVA 


ZENTRANX 

Av. Vitor Manzini, 410 - Santo Amaro - SSo Paulo 
CEP 04745-TEL: PABX (011) 522-2411 
RlrahRK): (021)233-5233 




























































































PROGRRMRS 



-L 

ff 

ff 

ff 

-1—1— 

J-L 

ff 

-LL 
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ff 
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TABELA II - A Instrução LET 

Instrução 

Apple 

TK 85 

LET var = var 

sim 

sim 

LET var = número 

sim 

sim 

LET var = expressão 

sim 

sim 

LET var$ ="STRING" 

sim 

, sim 

var = var 

sim 

não 

var = número 

sim 

não 

var = expressão 

sim 

não 

var$ ="STRING" 

sim 

não 

Obs.: var = variável 


A instrução END 

END finaliza a execução de um programa (fim lógico). Existe 
outra instrução que indica o fim físico ou interrupção do progra¬ 
ma; STOR Entretanto esta situação não tem muito sentido em 
BASIC. 0 que ocorre é a ausência de mensagem quando se usa 
a instrução END. Para fins práticos tanto faz usar uma interrup- 
ção(STOP) ou uma finalização (END). Assim, devido às simplifi¬ 
cações necessárias, o TK 85 não possui END. Toda vez que apa¬ 
recer um END, podemos substituir por um STOP sem problemas. 

A instrução SCROLL 

Esta instrução existe apenas no TK 85 e serve para "rolar" 
a tela de baixo para cima. Esta instrução não existe no Apple 
porque ela é feita automaticamente, quando a tela é preenchi¬ 
da, desaparecendo dessa forma a primeira linha, toda a tela, des¬ 
locando uma linha para cima e aparecendo uma mensagem ou 
dado próximo PRINT. No TK 85, se a tela ficar cheia, o micro 
responde com uma mensagem de erro. Por isso, no programa 
Classificador 1, se não fosse introduzido SCROLL nas linhas 80 
e 200, quando o valor de N fosse maior que 19 (número total 
de linhas da tela do TK 85 menos 2 linhas destinadas à exibição 
da primeira mensagem) ocorreria erro. 

Por exemplo: 


Apple: 

10 PRINT"BOY" 
20 GOTO 10 


TK 85: 

5 LET A = 0 
10 PRINT "BOY" 

15 LET A = A + 1 

20 IF A> =20 THEN SCROLL 


ou também: 


10 SCROLL 
15 PRINT"BOY" 
20 GOTO 10 


Digite estes dois últimos programas e veja a diferença. 

FOR/NEXT 

Trata-se de um par de instruções que devem sempre aparecer 
juntas, ou seja, quando se coloca um FOR deve-se colocar um 


NEXT correspondente, mesmo depois de várias outras instruções. 

O seu formato e uso é idêntico nos dois computadores abor¬ 
dados, só que, na linha Apple é permitido omitir-se a variável no 
NEXT. 

Se você encontrar em um programa para o Apple um NEXT 
sem variável e quiser traduzir, coloque depois do NEXT a variá¬ 
vel correspondente ao FOR utilizado. Por exemplo: 

Apple: 

70 FOR S = 1 TO 5 
80 PRINT "TESTE" 

90 NEXT 


TK 85: 

Altera a linha 90 para: 

90 NEXT S _ 

Um cuidado especial deve ser tomado quando o programa ti¬ 
ver vários FOR/NEXT, para evitar-se entrelaçamentos de laços , 
(isto está bem explicado no manual do TK 85). Por exemplo: 


a. Errado: 

—> FOR X = 1 TO 20 

PRINT . 

LET .... 

(seqüência do programa) 
—> FOR Y = 20 TO 40 
(seqüência do programa) 
—> NEXT X 
—> NEXT Y 

b. Correto: 

—> FOR X = 1 TO 20 

(seqüência do programa) 
FOR Y = 20 TO 40 
(seqüência do programa) 
NEXT Y 
—> NEXT Y 


HOME 

Apaga tudo que estiver mostrado na tela. Por exemplo: 

10 PRINT "MICROHOBBY" 

20 HOME 

0 computador exibe na tela a palavra Microhobby e em segui¬ 
da a apaga. 

O TK 85 não possui a instrução HOME, mas apresenta a ins¬ 
trução CLS, que faz a mesma coisa. 

Dois pontos 


Alguns micros (entre eles o Apple) permitem o uso de várias 
instruções separadas por dois pontos (:). No TK 85 isso não é 
possível. 

Quando surgirem, deve-se separar as instruções em várias li¬ 
nhas, tomando cuidado com posteriores GOTOs, numeração das 
linhas e IF/THEN com múltiplas operações após o teste. No pro¬ 
grama Classificador 2 as linhas 220, 224 e 228 são um exem¬ 
plo disto. 

Conclusão 


Embora limitado pela velocidade e capacidade gráfica, o TK 85 
pode rodar alguns programas do Apple, desde que corretamen¬ 
te traduzidos para o seu BASIC. 
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Pânico - TK 


Você e outros mineiros estão trabalhando no interior de uma 
mina, quando uma explosão bloqueia todas as saídas. 

Isso poderia ser o problema maior, se seus companheiros não 
fossem criaturas extraterrestres em constante mutação. Eles se 
tornam cada vez maiores e, desta forma, consomem rapidamente 
o oxigênio da mina. Você tem que agir depressa e sua única chan¬ 
ce de sobrevivência é exterminá-los com sua única arma: uma pá. 

Neste momento seus cuidados devem ser redobrados, pois os 
monstros estão esfomeados e dispostos a devorá-lo a qualquer 
momento. 

Como você deve ter notado, sua pá não é uma arma eficaz para 
eliminar monstros de grandes proporções, portanto, temos uma 
solução que poderá ajudar: cave armadilhas, emboscando-os e 
depois lutando com eles, um a um, até que morram. 

Mas não se esqueça que os monstros são mutantes. Se você 
demorar muito nesta operação, o monstro emboscado se torna¬ 
rá cada vez mais forte e conseguirá fugir da armadilha. Cada vez 
que sofre uma mutação, ele deve levar um tombo maior para mor¬ 
rer, ou melhor, precisa cair em mais do que uma cova. Deu para 
sentir em que enrascada você se meteu? 

Existem três formas de monstros representados pelos carac¬ 
teres S, que vale 50 pontos; $, que equivale a 100 pontos; e in¬ 
verso &, que vale 200 pontos. 

Os monstros na forma $ e inverso & precisarão passar, de uma 
só vez, por dois ou três buracos, cavados uma abaixo do outro, 
para sucumbir. É permitido cavá-los em qualquer lugar da mina, 
com exceção do nível inferior e em locais próximos às escadas 
ou a outro buraco. 

0 conjunto de teclas utilizado é apresentado no início do jogo. 
O programa é dividido em duas rotinas. O que está em Lingua¬ 
gem de Máquina (listagem 3) fica contido em uma linha REM 
de 2900 caracteres e os endereços utilizados dos da RAM vão 
de 16514 a 19314. 

Para obter a linha REM você deverá digitar, primeiramente, uma 
linha REM com 32 caracteres quaisquer e depois ir editando a 
linha, trocando o seu número. Por exemplo: edite a linha 1 e tro¬ 
que o seu número por 2, 3 e assim por diante, até atingir o nú¬ 
mero nove. Em seguida execute os comandos diretos: 


POKE 16511,114 
P0KE 16512,11 
POKE 16510,0 


Isso fará com que todas as linhas REM formem uma única li¬ 
nha de 2900 caracteres quaisquer. 

Os endereços 16511 e 16512 contêm o comprimento da pri¬ 
meira linha REM. Com os dois primeiros POKES pode-se modifi¬ 
car o conteúdo desses endereços, de modo que esta linha pas¬ 
se a conter todas as demais. 

O terceiro POKE serve para proteger a linha REM, impedindo 
que seja editada ou deletada por engano. Ele troca o número da 
linha por zero. 


Após ter digitado POKE, não toque na tecla > ENTER <, nem 
chame a listagem, depois de ter desligado o micro. Para maior 
segurança comece a digitação do monitor logo após os coman¬ 
dos diretos (listagem 1). 

Terminada a entrada dos códigos de máquina não delete o mo¬ 
nitor antes de digitar o programa BASIC (Iistagem2), pois como 
aconteceu anteriormente o programa não será listado. 

Você pode fazer algumas modificações no programa a fim de 
torná-lo mais fácil ou dificíl. Por exemplo, com um POKE no en¬ 
dereço 18750 você altera o parâmetro que controla a quantida¬ 
de de oxigênio. 

Inicialmente, este parâmetro possui valor 3. Alterando-o para 
0, você faz com que a quantidade de oxigênio permaneça em 
6000. 

Com POKE 18899, muda-se a velocidade do jogo, que inicial¬ 
mente está em 6. Neste caso, quanto menor for o parâmetro in¬ 
troduzido, maior será a velocidade. 

O código entre os endereços 16608 e 16668 são bytes de da¬ 
dos do programa e não precisam ter o valor 0. 


Agora que você já tem todas as informações necessárias pe¬ 
gue sua pá e mãos à obra, antes que um monstro peça molho 
de mostarda para passar em você. 
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Programas BASIC 


-SWrí-i L ISTRíibM BfiSiC 
10 P RINT Hl 1.5 SU¬ 


IS PRIMT PT 4,2 


6,2 
10 i 2 

1-5" 


PT 


" ESOUERDP “ ; PT 6,25 ; "Q-T" ; PT 
" D IRE ITR " ; PT 3 ,25; " Y -P " ; PT 
"SOBE /TPPfi /P U L P “ ; PT 10,25; " 
HT 12,2 ; "DESCE /CPUP" ; PT 12 , 

5; "P-G" __ 

20 P KIN S Hi 14,2; ‘ : ; p i 1 

, 10; "S ..... s 50" ; PT' 15,10 ; " $ 

100" .; PT 17,10 ; "p .. .. .. . 200" 


25 PRINT PT 19,5;"DESEJP PPPGP 
R 0 HBCORDb íS 'N; " 

30 IF INKEY4< > " THEN GOTO 30 

35 LET P$=IMKEY4 

40 IF P$=“" THEN GOTO 35 

45 IF P4 < >"S" THEN GOTO 60 

50 POKE 16S0S ., 0 

55 H O K5 16609,0 

60 LET L =USR Í677S 


100. STOP 


Códigos hexadecimais 


15514 

_ 

E 5 D 5 2 P 3240 5 4 5D 2 9 

_ 

515 

15522 

- 

2 91y292929192232 

- 

295 

15530 

- 

40 7 C D i E10 9 3 0P D P E 

- 

129 5 

15535 

- 

P C P D 3 0 B 3 P 3 B 4 B 7 P P 

— 

1355 

15545 

- 

9 4 9 C 9 C 9 09 C 9 C 9 0 3 0 


1212 

15554 

- 

3 45 D B E P C P P B 3 9 4P 2 

— 

13 ; dkj 

15552 

- 

9 C 9 0 9 C 3 03 0 30 3 0 3 0 

- 

1105 

15570 

- 

B5B1P6BEPPB788B 8 

- 

1379 

15575 

- 

P 3 B 4 B 7 H H9 4 9 C 9 0-9 0 


1317 

16 55 5 

- 
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13914 

- 

C D1D 417 £ F £ 8 8 D12 3 

= 923 

13922 

- 

3 D14 £D 531241153 5 

= 511 

13938 

- 

3 B C D1D 413 5 8 8 21 £ 3 

= 5 77 

13933 

- 

43458£8821£2435£ 

= 572 

13945 

- 

2 3 5 6 2 3 ü B 3 3 £ 5 C 5 D 5 

= 1835 

13954 

- 

338£D1C1£18C72F£ 

= 1834 

13952 

- 

332 8 £ C 21E3 48 7 8 C 9 

= 913 

13978 

- 

21F 9 48 8 533 39 7E 4 7 

= 553 

13973 

- 

£ 6 3 F 4 F F £ 8 2 D P 8 C 4 P 

= 932 

18935 

- 

14E5CD1D417EE1FE 

= 1153 

13994 

- 

8 82815 8473D1D 5 C D 

= 797 

19882 

- 

1D 413 5 8 8 D1C1 £ 114 

- 7QR 

19818 

- 

2 B 72 2 3 £ 5 Ü 5 D 5 C 3 C 4 

= 1222 

13813 

- 

4 P C B 73 792 315 C B 7 3 

= 335 

13825 

- 

C 2 5 D 4 P F £ 8 3 D P B Ü 4 P 

= 1893 

13834 

- 

C3 7F4PFE 8 3 D P 5 D4P 

= 1859 

13342 

- 

C 37F4PFE 8 D D P 5D4P 

= 1364 

13858 

- 

C 3 7 F 4 P 7 8 £ 5 C 3 C B 7 F 

= 1253 

13358 

- 

C 2 7 P 4 P 358 3 C 3 7 C 4 P 

= 789 

13355 

- 

8 5 43 C 3 B Ü 4 P D1C1C B 

= 1132 

19874 

- 

B 8 C 5 D 5 C D1D413630 

= 947 

19832 

- 

2 1 F 9 48 8 58 3 3 9 7£ C B 

= 598 

13333 

- 

7FC2P74PC577C291 

= 1239 

13833 

- 

4 P 813 53 8 C 3 P P 4 P 31 

= 528 

13185 

- 

8 P 8 8 C3PP4P311438 

= 478 

19114 

- 

2 P £ 2 48 8 222 £ 2 48 44 

= 733 

13122 

- 

4D111817CD5641C3 

= 5 3 4 

13133 


8 C 4 P 7 5 iz 5 C 377D1C1 

= 1149 


19133 

_ 

C 5 D 5 0 6 0.021 F 9 4- 0 0- 9 

= 

771 

19145 

- 

4 6 C D1D 41C B 7 0 2 0 0 8 

= 

724 

19154 

- 

C B 7 S 2 0 0 S 3 E 3 313 0 6 

- 

511 

19152 

- 

3 E 0 D13 0 23E 3 D 7733 

= 

513 

19173 

- 

03492114413B 5620 

= 

525 

19173 

- 

013 9 E D 5 B12 413 B 9 6 


9 5 6 

19135 

- 

D53D1D413600D114 

= 

795 

19194 

- 

ED5312413D1D417E 

= 

£ hi 5 

19282 

- 

3 6 3B F E 3 839144BFE 

= 

974 

19213 

- 

0D39144BFE3D3914 

= 

927 

19213 

- 

4d393d01392ld340 

= 

369 

19225 

- 

4 6 0E 0 0 2 35E2 3 5 62 3 

- 

359 

19234 

- 

3 B 0 8 E 5 3 5D 5 3 3 0 B D1 

= 

1125 

19242 

- 

31E10 3 7 9F E 03 3 21E 

= 

1837 

19253 

- 

4 d392179 40 060009 

= 

6 3 ? 

12253 

- 

7EE63FFE0132 2 94B 

= 

234 

19255 

- 

211541097EFE2DD9 

= 

771 

1 : =* i=! 7 4 

- 

2 9 4B F E 3 D D2 6 4 4B 3 D 

= 

1821 

19232 

- 

1D417EFE3 0 D 2 5 E 4B 

= 

231 

19293 

- 

3bd01b£iHL>bbb 7 7C3 

= 

1883 

12293 

- 

294d 211 b 410 9 3 6 0 0 
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2 9 8 

19385 

19314 

— 

210-94109 3 6 0 8 3 32 9 
4B = 75 

= 

406 
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Traga este anúncio e ganhe um brinde na compra de 
qualquer item 
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Venha conhecer nosso show room e 
participar ativamente das mais recentes 
e revolucionárias tecnologias a respeito 
dos microcomputadores. Além de 
fazer amigos, eventualmente poderão 
descobrir o que um Microcomputador 
poderá fazer por vocês ou pela sua 
Empresa. 

Trata-se de uma perfeita e balanceada 
estrutura para representar à altura, as 
principais Empresas de Computadores 


tais como: Texas, Zirok, Microdigital, 
Dactari, Polymax, Unitron, Elebra, 
Aceco, Prológica, Apple II, Savage, 
Microcraft, CMA, Phillips, Ringo, 
Matrix... 


ô 


CERTIFICADO DE REGISTRO NO CADASTRO DE FORNECEDORES 
DE SUPRIMENTOS DE INFORMÁTICA 


Texas 



Intellivision 





RUA SANTA EFIGÉNIA, 568 - SP - FONE: 221-9055 













































































































































































ANALISANDO 


Interface paralela 
para TK 90X 

Marcos Lorenzi 


Umas das características do TK 90X é 
a gama de periféricos que podem ampliar 
sua potencialidade, tal como ocorreu com 
seu irmão inglês, o ZX-Spectrum. 

O primeiro periférico que qualquer usuá¬ 
rio ambiciona após dominar sua máquina, 
é a impressora. Isto transforma o micro¬ 
computador, de um instrumento pratica¬ 
mente de aprendizado e lazer em um equi¬ 
pamento de uso profissional. 

Existe um grande número de impresso¬ 
ras no mercado, algumas com preço bas¬ 
tante acessível. Estes equipamentos esti¬ 
mularam o lançamento desta interface pa¬ 
ra impressora, que apresentamos neste 
número. 

Esta interface, fabricada pela Microdigi- 
tal, é destinada à linha TK 90X COLOR. 
Sendo um dispositivo com a finalidade de 
viabilizar o interfaceamento entre o com¬ 
putador e uma impressora de entrada 
paralela. 

Seu formato é semelhante à interface 
desenvolvida para o TK 85, diferindo-se 
apenas nos detalhes de acabamento. 



Equipamento usado para teste: TK 90X, Parallel Printer Interface, impressora paralela. 


Instalação simples e segura 


Com pequenas dimensões, a Parallel Printer Interface permite ao usuário 
conectar seu TK 90X a qualquer impressora paralela. 



Este equipamento está protegido por 
uma caixa plástica, que apresenta dois 
conectores. 

O conector maior deve-se encaixar na 
conexão de expansão (EXPANSION) na 
parte traseira do TK 90X, entre o conec¬ 
tor do Joystick e da fonte. 

O menor é utilizado para a ligação do ca¬ 
bo que efetuará a comunicação entre a in¬ 
terface e a impressora paralela. 

Este cabo possui dois extremos conec¬ 
tores distintos, o menor se encaixa na in¬ 
terface e o maior adapta-se diretamente 
na impressora. 

O usuário não deve se esquecer de que, 
no procedimento de instalação, todos os 
aparelhos devem estar desligados. A inter¬ 
face nunca deve ser desconectada com o 
compütador em funcionamento. 

Acionando a Interface por Software 

Para o funcionamento da interface 
necessita-se carregar na RAM do equipa¬ 
mento o software para impressora. 

Seu modo de acionamento é semelhan¬ 
te ao do TK 2000, diferindo apenas no co- 
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mando, onde se usa LM no TK 2000 e 
LOAD no TK 90X. 

Para carregar o software de impressora 
no TK 90X, o usuário deve proceder da se¬ 
guinte maneira: 

1. Conecte o cabo em "EAR" no grava¬ 
dor e no computador. 

2. Coloque a fita do software de impres¬ 
sora no gravador. 

3. Ligue o computador e digite: 

LOAD "" < ENTER > 

4. Pressione a tecla "PLAY" do gravador. 

Terminado o carregamento, surgirá a se¬ 
guinte mensagem: 

9 STOP EXECUTADO 5:2 

5. Pressione a tecla < ENTER >. 

Surgirá na tela o programa, sendo com¬ 
posto de sete linhas, numeradas de 1 a 7. 

Em seguida, o usuário deverá apagar to¬ 
das as linhas. 

6. Digite o número de cada linha segui¬ 
do de < ENTER>, até que todas as linhas 
sejam eliminadas. 

Feito este procedimento, o computador 
estará pronto para receber qualquer outro 


PROGRAMAS 
APLICATIVOS PARA 
SEU MICRO 


• Orçamentos e custos de Cons- Valor 

truções Civis, para APPLE, em 
Diskete. 48 ORTN 

• Orçamentos e custos de Cons¬ 
truções Civis, para SINCLAIR, 

TK 85, CP 200 e outros, grava¬ 
dos em fita Cassete. 8 ORTN 

• AGRIMENSOR - Cálculo da 
Planilha Analítica, para APPLE, 

em Diskete. 12 ORTN 

Para TK 2000, em fita Cassete 10 ORTN 
Para TK 85, CP 200 e outros .. 6 ORTN 

• Cálculo de lista de preços para 
fabricantes, para SINCLAIR, 

TK 85 e similares. 6 ORTN 

• Blocos "PRINT e PLOT" para 


seu lay out em seus programas 
profissionais com 100 páginas 
de formulários, para linha SIN¬ 
CLAIR, TK 85, TK 83, CP 200, 

RINGO, etc. 

1 BLOCO.0,5 ORTN 

3 BLOCOS. 1 ORTN 

— Pagamento com pedido (despacho imediato) ou 
por reembolso com 10%de acréscimo. 

Envie seu pedido para: 

informática dinâmica Lida 


Rua Minas Gerais, 56 — CEP 98900 — Santa Rosa — RS 
Telefone: (055) 512-2819 

^CONDIÇÕES ESPECIAIS PARA REVENDEDORES^ 



programa. 

Teste de Funcionamento 

Caso o usuário deseje certificar-se de 
que tudo está funcionando corretamente, 
antes de entrar com algum outro progra¬ 
ma, rode este aqui: 

10 LPRINT "TESTE DE IMPRESSÃO" ; 

20 GOTO 10 

Em seguida digite RUN e <ENTER>. 
Para interromper a impressão pressione a 
tecla "BREAK". 


Conclusões 

A interface tem um tamanho discreto, 
com conexões eficientes. 

O Hardware é simples, com uma mon¬ 
tagem racional, revelando o cuidado do de¬ 
partamento de engenharia em evitar "Jum- 
pers" e complicações desnecessárias. 

Nos testes efetuados, o circuito não nos 
decepcionou, permitindo-nos a exploração 
de todos os recursos da impressora. 

O carregamento do software é rápido e 
não oferece problemas ao usuário. 



GUARDE ESTE NUMERO: 


É onde você encontra tudo para 
os micros da linha TK. 

• SOFTWARE (Jogos e Aplicativos) 

• ACESSÓRIOS 
• PERIFÉRICOS 
• LITERATURA 

• E O NOVO TK 90X - MICRODIGITAL 


o micro 
cheio de 
programas. 



' JOGOS APLICATIVOS 


CIBERTRDn 

SOFTWARE 


• APLICATIVOS TK-85 / TK-2000II EM FITA 
E DISKETE ... .... 

Microideia 

PASSE SEU PROGRAMA EM FITA SEM 
PROBLEMAS UTILIZANDO A INTERFACE LH-3. 
CONHEÇA TAMBÉM O MONITOR LH-12 

R.C.C. 


FAÇA O CURSO DE BASIC NA MELHOR ESCOLA DE S.PAULO 


O 


MfiGNOPtiTfi 

informática ltda. 



cada vez melhor! 


A revista MICROHOBBY é dedicada aos 
leitores que desejam tirar o máximo proveito 
de seu micro. 

Muitas dicas, programas e cursos numa lin¬ 
guagem altamente didática. 

Todo mês um mundo de informações valiosas 
tanto para os principiantes, quanto para os ex- 
perts". 
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Estatística - a análise de 
dados no micro pessoal 

Fábio Augusto Polônio 


Como analisar o comportamento de uma população? Em que 
se baseiam estudos de mercado ou planejamento de 
marketing? Como saber se em um avião há um terrorista com 

uma bomba? 


Neste artigo, que será apresentado em 
mais quatro edições, introduziremos al¬ 
guns conceitos de Estatística, a ciência 
que serve de base para responder estas 
perguntas. 

A Estatística é um método de observa¬ 
ção, descrição, mensuração e interpreta¬ 
ção de características de um determina¬ 
do conjunto ou população, chamados de 
"Fenômenos Coletivamente Típicos". 

A teoria Estatística permite que sejam 
tomadas decisões, com base em informa¬ 
ções, na maioria das vezes, limitadas e in¬ 
completas, sobre os mais variados fenô¬ 
menos existentes na natureza. É a ciência 
da indução lógica, isto é, das generaliza¬ 
ções de características de um conjunto, de 
cujos elementos se conhece um sub¬ 
conjunto chamado amostra. 

Em nenhum campo de atividade e do 
pensamento humano é possível prescin¬ 
dir da Estatística como ferramenta. Para 
o pesquisador, os métodos estatísticos 
conduzem à conclusão sobre causa e efei¬ 
to. Por exemplo, um médico usa-os para 
avaliar a ação de um certo medicamento; 
o agricultor, para prever sua produção; etc. 

Como é feito tudo isso? 

"Chamaremos qualquer conjuntos de fa¬ 
tos ou elementos de população ". Quan¬ 
do vamos estudar uma população, deve¬ 
mos primeiramente coletar amostras para 
que, a partir destas, tiremos as conclusões 
sobre as características da população, de¬ 
terminando assim um sub-conjunto. 

Essa coleta de amostras nunca poderá 
ser tendenciosa, pois, caso contrário, te¬ 
remos uma análise falsa. Por exemplo: 


quando alguém passa por uma alfândega, 
deve apertar um botão que acende uma 
lâmpada. Dependendo da cor da lâmpada 
acesa, ele será ou não revistado. Observe 
que a escolha da pessoa a ser revistada 
é puramente aleatória, independente da 
origem ou características da pessoa que 
apertou o botão. Isso porque é uma má¬ 
quina quem sorteia. Se fosse uma pessoa, 
talvez só escolhesse loiros ou morenos, 
homens ou mulheres, quando, a rigor, qual¬ 
quer pessoa pode ser um contrabandista. 
Essa tendência é explicada pela forma com 
que é estruturado nosso pensamento. 

Somente máquinas podem gerar núme¬ 
ros completamente aleatórios - por exem¬ 
plo, as máquinas de jogos de azar. 

Certa vez, tentando descobrir se uma ro¬ 
leta de cassino era honesta ou não, um 
matemático contratou uma pessoa para ir 
ao cassino e anotar todos os números sor¬ 
teados pela roleta naquela noite. Porém, ao 
invés de anotar os números, ele jogou a 
noite toda e, no dia seguinte, forneceu nú¬ 
meros quaisquer ao seu mandante, esco¬ 
lhidos por ele mesmo. 

O matemático passou a considerar a ro¬ 
leta desonesta, pois achou uma tendência 
na amostra coletada. Essa tendência, na 
verdade, era de seu empregado que gerou 
os números através de comparações fei¬ 
tas, inconscientemente, enquanto ele 
pensava. 

Probabilidade 

Quando fazemos uma análise estatísti¬ 
ca, devemos ter em mente que estamos 
lidando com aproximações e que existe 
uma certa margem de erro. Por tanto, es¬ 
ta análise nunca será 100% confiável. Afi¬ 


nal, não estamos estudando casos isola¬ 
dos de uma população, mas apenas um 
sub-conjunto dela. Por isso, quanto maior 
for a amostra, mais confiável será a 
análise. 

Para que seja possível uma maior com¬ 
preensão, façamos uma análise estatísti¬ 
ca em um jogo de cara ou coroa. Obser¬ 
vando os movimentos de uma moeda, po¬ 
demos saber se ela é honesta ou não no 
jogo. Após algumas tentativas podemos 
observar seus resultados. 

Digamos que em cinco jogadas obtive¬ 
mos três caras e duas coroas. 

Com os dados obtidos, montamos a ta¬ 
bela I. 


Tabela 1 

Eventos 

Freqüência absoluta 

Cara 

3 

Coroa 

2 


Os resultados possíveis do experimen¬ 
to são chamados eventos. O número de 
vezes que um evento ocorre é chamado 
freqüência absoluta. 

Veja que a probabilidade de sair cara ou 
coroa é a mesma. Ambas têm 50% de 
chances. 

Após jogarmos a moeda 10 vezes, per¬ 
cebemos que saíram oito caras e duas 
coroas. 

Se tivéssemos que apostar agora em um 
dos dois possíveis resultados apostaría¬ 
mos em coroa, se a moeda fosse hones¬ 
ta; e em cara, se ela não o fosse. 

Você poderia perguntar por quê? A pro¬ 
babilidade não é a mesma? 

Não de imediato. Para que se confirme 
a probabilidade de 50% é necessário que 
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cada evento ocorra com a mesma freqüên- 
cia. Então, note que neste último caso so¬ 
mos levados a acreditar que a moeda não 
é honesta. 

Mas devemos observar que a análise 
não é muito confiável, pois a nossa amos¬ 
tra foi muito pequena. Quem nos garante 
que não ocorrerá o evento coroa nas pró¬ 
ximas dez jogadas? O único jeito de saber¬ 
mos é jogando, aumentando o tamanho da 
amostra e, consequentemente, a confiabili¬ 
dade da análise. 

Quanto maior o tamanho da amostra, 
mais perto estaremos da probabilidade ab¬ 
soluta. Esta tendência aumenta à medida 
que a frequência acumulada dos eventos 
tende ao infinito. 

Por outro lado, não precisamos confir¬ 
mar a probabilidade para tornamos uma 
decisão. Se, por exemplo, em 100 jogadas, 
90 resultaram em cara, certamente temos 
90% de chances de possuirmos uma moe¬ 
da desonesta. 

É claro que a Estatística não restringe 
a casos de análises tão simples. Afinal, 
uma moeda só tem dois lados. Imagine um 
fenômeno mais complexo. 

Nos procedimentos anteriores não bas¬ 
tam para uma decisão, acertada, por exem¬ 
plo , no caso de uma pesquisa de marke¬ 
ting. Muitos são os fatores que influencia¬ 
ram uma decisão e todos eles são previs¬ 
tos e estudados pela Estatística. 

Enfim, determinar tendências, perfis da 
sociedade, elaborar pesquisas ou mesmo 
sortear números de loteria e de jogos de 
azar, são dados que podem ser previstos 
e calculados com alto grau de confiabili¬ 
dade, pela Estatística, esta ciência que se 
baseia na probabilidade e na lógica para 
obtenção de resultados. 

A partir desta edição publicaremos, to¬ 
dos os meses, alguns conceitos de Esta¬ 
tística e como aplicá-los em microcompu¬ 
tadores, particularmente no TK 2000. 

Estes conceitos serão transmitidos sem¬ 
pre através de programas educativos/apli¬ 
cativos, que tornarão o seu micro uma fer¬ 
ramenta super eficaz na tomada de 
decisões. 

Publicamos a seguir, um programa edu¬ 
cativo que demonstra o uso de tabelas e 
gráficos e um resumo da estatística 
descritiva. 


Í00 HOME 

230 HTAB ?: PRINT "ESTAT 
ISTICA DESCRITIVA" 

SCO PRINT : PRINT : PSIN 
T " ESTE PROGRAMA TEM POR 
FINALIDADE EXPOR" 

400 PRINT "OS PRINCIPAIS 
CONCEITOS SCSRE LEVANTA-" 


5C0 PRINT "MENTO DE DADO 


2500 HTAB 12: VTAB 19: ? 

S E DESTACAR AS TÉCNICAS C 


RINT "TABELAS": HTA3 20: V 

EAPRESENTACAC, POR MEIO DE 


TAB 19: PRINT "GRÁFICOS" 

TABELAS E SRA-FICCS.SERA 


2600 HPLOT 75,140 T0 190 

EXPLORADO CADA UMA DAS PAR 


,140 T0 190,160 T0 75,160 

TESQUE COMPOEM A SEGUINTE 


T0 75,140 

DEFINIÇÃO:" 


2700 HPLOT 130,140 T0 13 

600 PRINT : PRINT : PRIN 


0,160 

T "A ESTATÍSTICA E r COLETA 


2795 FOR A = 1 T 0 3000: 

, APRESENTACAO, ANALISE E 


NEXT 

INTERPRETAÇÃO DE DADOS NU 


2799 HGR 

NERI-COS" 


28C0 HTAB 12: VTAB 2: PR 

7ÜÜ PRINT : PRINT : PRIN 


INT "COLETA DE DADOS" 

T "DESSA FORMA PODE SER RE 


2805 HTAB 3: VTAB 4: PRI 

SUMIDA NO SEGUIN-TE FLUXOG 


NT "CONSISTE NA BUSCA DOS 

RAMA" 


DADOS DAS VARIA- VE IS , COM 

800 HTA3 7: VTAB 22: PRI 


-GNENTE3 D0 FEN0MEN0 A SER 

NT "'.PRESSIONE QUALQUER TE 


ES-TUDADQ." 

CLA>" 


2810 HTAB 3: VTAB 8: PRI 

?0Ü GET US 


NT "A COLETA DE DADOS E’ D 

Í000 DIM A5(3) 


IRETA QUANDO OS DADOS SAC 

ÍÍDO AS(15 = "COLETA" 


OBTIDOS NA FONTE 0RIGINARI 

Í20C ASÍ2) = "DE" 


A" 

Í300 AS(35 = "DADOS" 


2315 HTAB 3: PRINT "OS V 

Í4CÜ HGR : HCOLOK = 3: 


ALORES ASSIM 03TIDQS SA0 0 

HPLOT IDE,5 TO 172,5 TO 16 


HAMAD0S DADOS PRIMÁRIOS, C 

0,35 TO 93,35 TO 105,5 


ONO POR EXEMPLO REGIS-TR0S 

1500 FCR X = í TO 3: HTA 


EM CART0RI0, EM NOTAS r IS 

3 17: VIAS X + i: PRINT AS 


CAIS, ETC." 

•X): NEX T 


282C HTAB 3: VTAB 14: *R 

1600 HPLOT 95,15 TO 160, 


INT "A COLETA DE DADOS E I 

15 TO 160,75 TO 95,75 TO 9 


NDIRETA QUANDO 0SDAD0S PR0 

5,45 

1700 DIM 35(35 


VEM DA COLETA DIRETA.0S VA 


L0RES" 

1800 BS(Í5 = "CRITICA" 


2825 VTAB 17: PRINT "ASS 

1900 SS!2) = "DOS" 


IH OBTIDOS SA0 CHAMADOS DA 

2000 eS!35 = "DADOS" 


DOS SECUN -DARIOS, C0M0 P0 

2100 FOR X = 1 TO 3: HTA 


R EXEMPLO, 0 CALCULO DE VI 

3 16: VTAB X + 6: PRINT BS 


DA MEDIA, OBTIDO PELA PESQ 

(X): NEXT 


UISA NAS TABE-LAS DEM0GRWA 

2200 HPLOT 82,95 TO 185, 


FICAS PUBLICADAS PELO IBGE 

95 TO 170,115 TO 67,115 TO 


// 

■ 

82,95 


2830 FOR A = 1 T0 3000: 

2300 HTAB 14: VTAB 13: p 


NEXT 

RINT "APRESENTACAO": HTAB 


2835 HGR : HTAB 12: VTAB 

14: VTAB 14: PRINT "DOS DA 


í: PRINT "CRITICA DOS DAD 

DOS" 


0S" 

2400 HPLOT 130,35 TO 130 


2840 HTAB 3: VTAB 3: PRI 

,45: HPLOT 130,75 T0 130,9 


NT "NESTA FASE PROCEDE-SE 

5: HPLOT 105,115 T0 105,14 


UMA REVISÃO CRI-TICA DOS D 

O: HPLOT 155,115 T0 155,14 


AD0S, SUPRIMINDO-SE 0S VAL 

0 


ORES ESTRANHOS AO LEVANTAM. 

ENT0" 
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2845 FOR A = í TO ÍOQO: 


NT "ANO": HTAB 25: VTAB 5:' 


6200 P = l: GOTO 2900 

NEXT 


PRINT "POPULACAO" 


63G0 HTAB 4: VTAB 2: PRI 

2850 HTAB ?: VTAB 7: PRI 


4000 B = 1940: FOR V = 10 


NT "RECEITA DO MUNICÍPIO * 

NT "APRESENTACAO DOS DADOS 


TO 18 STE? 2: HTAB 7: VTA 


1980-1982" 

// 


3 V: PRINT 5:8 = B + 10: N 


6400 HTAB 8: VTAB 5: PRI 

2855 HTAB 3: VTAB ?: PRI 


EXT 


NT "ANO": HTAB 27: VTAB 5: 

NT "APOS A CRITICA ,CONVEH 


4100 HTAS 25: VTAB 10: ? 


PRINT "RECEITA" 

ORGANIZARMOS CSDADOS DE M 


RINT "41.236.315" 


6500 B = 1980: FOR V = 10 

ANEIRA PRATICA E RACIONAL, 


4200 HTAB 25: VTAB 12: P 


TO 14 STEP 2: HTAB 7: VTA 

USANDO PARA ISSO GRÁFICOS 


RINT "51.944.397" 


8 V: PRINT B:B = 8 + í: NE 

E TABELAS." 


4300 HTAB 25: VTAB 14: ? 


XT 

2860 HTAB 3: VTAB 13: PR 


RINT "70.119.071" 


6600 HTAB 7: VTAB 16: ?R 

INT "DOS VÁRIOS TIPOS DE G 


4400 HTAB 25: VTAB 16: p 


INT "70 T AL" 

RAFICOS EXISTEN -TES , TEM 


RINT "93.139.037" 


6700 HTAB 25: VTAB 10: ? 

OS CS MAIS USADOS SUE 3A0: 


4450 HTAB 23: VTAB 18: p 


RINT "60.000.000,00" 

ff 


RINT ">120.000.000" 


6300 HTAB 25: VTAB 12: P 

2365 HTAB 3: VTAB 17: PR 


4500 FOR A = 1 TO 3000: 


RINT "102.000.000,00" 

INT "i-GRAFICO EM BARRAS" 


NEXT 


6900 HTAB 25: VTAB 14: p 

2870 HTAB 3: VTAB 19: PR 


4600 HGR 


RINT "168.000.000,00" 

INT "2-GRAFICO EM SETORES' 1 


4700 B = 10C: FOR A = 1 T 


7000 HTAB 25: VTAB 16: p 



0 20 STEP 2: VTAB A: PRINT 


RINT "330.000.000,00" 

2873 HTAB 12: VTAB 21: p 


B: HTAB 4: VTAB A: PRINT 


7100 FOR y = 1 TC 1000: 

RINT "<8UAL SUA CPCAO?>": 


"rb":B = B - 10: PRINT " 


NEXT 

GET AS 


rZ": NEXT 


7200 HGR : HCOLOR = 2 

2880 IF AS = "2" 7HEN 61 


4800 COLOR = 5 


7300 FOR A = 0 TO 6.2831 

00 


4900 VLIN 25,39 AT 5 


STEP .025 

2900 HGR : COLOR = 5 


5000 VLIN 25,39 AT 6 


7400 X = 140 + INT (50 * 

3000 HLIN 0,3? AT 0 


5100 VLIN 21,39 AT 9 


SIN (A)> 

3100 HLIN 0,39 AT 3 


5200 VLIN 21,39 AT 10 


7500 Y = 80 + INT (50 * 

3200 HLIN 0,39 AT 13 


5300 VLIN 13,39 AT 13 


OOS (A15 

3300 HLIN 0,39 AT 44 


5400 VLIN 13,39 AT 14 


7600 HPLOT 140,80 TO X,Y 

3400 VLIN 0,44 AT 0 


5500 VLIN 4,39 AT 17 



3500 VLIN 6,44 AT 19 


5600 VLIN 4,39 AT 18 


7700 IF A > 3.3000 THEN 

3600 VLIN 0,44 AT 39 


5700 VLIN 0,39 AT 21 


HCOLOR = 3 

3700 IF P = 1 THEN GOTO 


5800 VLIN 0,39 AT 22 


7800 IF A > 5 THEN HCOL 

6300 


5900 HCOLOR = 3: HPLCT 


OR = 1 

3800 HTAB 4: VTAB 2: PRI 


0,159 TO 250,15? 


7900 NEXT :P •= 0 

NT "POPULACAO BRASILEIRA * 


6000 FOR W = 1 TO 2500: 


7910 GOTO 2865 

1940-1980" 


NEXT 



3900 HTAB 8: VTAB 5: PRI 


6050 HGR : GOTO 2865 





6100 HGR 


■ 
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ENTRE COM SEU 
MKRO NESnS AVENTURAS! 



/micro] 


r^wmmrãi I 


MICRO 
é a nova série 
que traz emoções sen¬ 
sacionais para você, 
que curte microcom¬ 
putadores. 

Em MICRO AVEN¬ 
TURA, você se trans¬ 
forma em Orion, agente 
secreto da AJA (Associa¬ 
ção dos Jovens Aventu¬ 
reiros). E enfrenta a 
terrível SATAN (Socie¬ 
dade para a Ação 
Terrorista e Anarquista) 
com sua inteligência 
e uma arma magnífica: 
seu microcomputador. 

Em cada história 
eletrizante, MICRO 
AVENTURA tem pro¬ 
gramas para você uti¬ 
lizar seu micro. E, com 
ele, você irá salvar o 
mundo de mais uma 
ameaça terrível. 

Não perca! 


ESTES 
SÃO OS 
PRÚXIMOS! 

CADA 15 
DIAS NAS 
BANCAS. 


NOVA ABRIL CULTURAL 







Rotina de 
gravação 

de dados alfanuméricos 


Visando atender os interesses de gran¬ 
de parte dos usuários dos micro compu¬ 
tadores TK 2000 e TK 2000 II que nos têm 
enviado inúmeras cartas, publicamos, nes¬ 
ta edição, uma rotina em BASIC para gra¬ 
vação de dados alfanuméricos. 

No programa que estamos apresentan¬ 
do os dados em referência são transforma¬ 
dos em numéricos, utilizando para isto, as 
matrizes. 

0 dimensionamento das matrizes está 
programado da seguinte forma: 

A$ até dez fichas 

V% até trinta caracteres por campo 


10 REM 

»m 

20 REH tt 
tt 

30 REH H DPTO DE SÜP/HA 
RK # 

40 REH # < HICRODIGITAL 
> # 

50 REH # 

* 

60 REH ################ 
#### 

70 HOHE 

80 DIH AI(10),VX(10,30), 
XZ(ÍO) 

90 REH "ENTRADA DE DADO 
S" 

100 FOR N = 1 TO 10 
110 PRINT "DADO N’ ";N f : 
INPUT Ai(N) 


X% armazena o comprimento do campo 

Mas esta distribuição pode ser modifi¬ 
cada de acordo com as necessidades do 
usuário. 

A rotina de entrada de dados irá variar 
conforme a estrutura do programa do 
usuário. 

Durante a gravação das matrizes o equi¬ 
pamento emitirá quatro "Bips" significan¬ 
do que tudo está ocorrendo normalmen¬ 
te, e a mensagem "gravando" é exibida na 
parte superior da tela. Ao final do quarto 
"Bip" a mensagem "OK" será mostrada no 


120 XZ(N) = LEN (AKN)) 
130 NEXT N 

140 REH CONVERSÃO CHRI/ 
ASC E GRAVACAO 
150 FOR I = 1 T0 10 

160 FOR J = 1 TO XZd) 

170 VZ(I,J) = ASC ( HIDI 
(AI(I),J,i>) 

180 NEXT J 

190 NEXT I 

200 PRINT : PRINT "PARA 
GRAVAR DIGITE UHATECLA": G 
ET Bi: PRINT : PRINT "GRAV 
ANDO..."- 

210 ST0RE VZ: ST0RE XX: 
PRINT "0K.": END 
220 REH "ROTINA PARA LE 
ITURA" 


vídeo, indicando final da gravação. 

A rotina de leitura se processa da mes¬ 
ma maneira da rotina de gravação , ao fi¬ 
nal da leitura é impressa a seguinte men¬ 
sagem "Leitura Efetuada" 

No programa do usuário a linha 230 po¬ 
de ser excluída, onde esta efetua a inicia¬ 
lização das matrizes. 

O usuário deve tomar cuidado com o se¬ 
guinte aspecto: se já tiver introduzido da¬ 
dos nas matrizes, e desejar acrescentar 
novos valores, deverá gravá-los, incluindo 
novos dados antes, pois os dados antigos 
serão destruídos assim que forem introdu¬ 
zidos os novos valores. 


230 CLEAR : DIH AK10),V 
Z(10,30) T XZ(10) 

240 PRINT : PRINT "PARA 
LEITURA DIGITE UHA TECLA": 
GET BI: PRINT : PRINT "LE 
NDO..."; 

250 RECALL VZ: RECALL XX 
: PRINT "LEITURA EFETUADA" 

260 REH ROTINA DE C0NVE 
RSAO ASC/CHRí E IHPRESSAO 
270 HOHE 

280 FOR I = 1 T0 10 
290 FOR J = 1 T0 XX(I) 

300 AI(I) = Aid) + CHRl 
(VZd,J)) 

310 NEXT J 

320 PRINT Aid): PRINT 
330 NEXT I 
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HOBBYSHOP VEJA SE SUA CIDADE TEM O QUE VOCÊ PRECISA 


SÃO PAULO 


MjCRO S ervice 

Inclusão de 24 novas funções (Read, Data, etc.), 
Slow, High Speed, Alta Resolução, Porta de 1/0, etc. 
para micro de tecnologia SINCLAIR ZX81. 
Manutenção de microcomputadores SINCLAIR (TK 
82,83,85, etc.) eTRS. 

Wilson de Assis — Tel.: 203-7967 


TKSOM-TKMORSE 

2 Software de alta qualidade para Micros Sinclair com 16 K 

TKSOM - coloca som no seu micro; contém 6 músicas; você pode programar suas 

músicas. 

TKMORSE — lista sua mensagem em código morse; transmite sinais sonoros de men¬ 
sagem pré-gravada; transmite sinais sonoros simultaneamente com a digitação. 

Preço até 30-06-85 Cr$ 28.000 

Envie cheque nominal para: 

MÁRCIO ACCIOLY 

Rua Dr. Saboia de Medeiros, 199-54 - Cep 04120 - São Paulo - SP 
e receba os 2 Software pelo correio, sem mais nenhuma despesa. 

PREÇOS ESPECIAIS PARA REVENDEDORES. 



Transforme seu TK 85. 

O mesmo efeito dos 
monitores de vídeo. 

Fundo: preto 
Letras: brancas 

Com uma simples modificação 
no microcomputador. 


TRANSVIDEO Fone: (011) 522-8100 


EME 


Comércio de Computadores Ltda. 
TK85 x TK2000? 


Só na ENG você adquiri o seu TK2000 nas me¬ 
lhores condições e ainda dá o seu velho TK83, 
TK85 ou CP200 como parte de pagamento. 
TK2000 é na ENG. Showroom - Tel. 813-7570. 
Av. dos Tajurás, 406 — CEP: 05670. 



cipplG cursos 

CURSOS DIRIGIDOS DE 
MICROCOMPUTADORES 


• BASIC I e II e Applesoft 
• ASSEMBLER 6502 

• EDITOR DE TEXTO E PLANILHA ELETRÔNICA 


NOVAS TURMAS (c/ 12 alunos) 

INÍCIO IMEDIATO 


Reservas pelos Telefones: 853-9457 — 853-2408 Rua Suzano, 78 — Jardim Paulista — São Paulo 


PROGRAME-SE! 

Faça como os funcionários da SABESP, BURI, KIBON e outros. Venha desvendar o 
computador da DATA RECORD INFORMÁTICA. 

COBOL - BASIC - DIGITAÇÃO 

Turmas especiais para crianças de 8 a 14 anos. (BOLSAS DE ESTUDO) 

Av. Santo Amaro, 5.450 — Tel. 543-9937 — Brooklin — (em frente ao E.C. Banespa). 


G°' 


-o*'*. r s' ctk 



QUAL A INTERFACE QUE ESTÁ FALTANDO 
NO SEU MICRO? 

È AQUELA QUE LHE DEVOLVERÁ O PRAZER DE FICAR EM FRENTE DO SEU 
MONITOR POR TEMPO ILIMITADO. 

MICROTELA possibilita que você continue com seu TV, pois possue a mesma tela de 
poliester utilizada nos monitores de última geração, filtrando e eliminando os reflexos, ao 
mesmo tempo que aumenta a resolução da imagem. 

Adicionalmente proporciona o mesmo efeito repousante dos monitores de fósforo colo¬ 
rido, utilizando acrílico nas tonalidades verde e ambar. 

Informações com MASTER STING LTDA. 

Caixa Postal 18708 — São Paulo — SP 


SUPRIMENTOS P/INFORMÁTICA 


*FORMULÁRIOS 
*DISKETES * FITAS IMPRESSORAS 
* PAPEL XEROGRÁFICO 
^SUPRIMENTOS P/TELEX E ESCRITÓRIO 

IN F0RMAX -PRODUTOS P/ INFORMÁTICA LTDA. 

R.Domingos de Morais^BA-B^and. Cj.602-A 
Tel. (011) 570.7570 


SÃO JOSÉ DOS CAMPOS 


E «TRONIC - COMPONENTES E SISTEMAS LTDA. 

"SOFT-LOADER" — Interface micro-cassete para TK 82-C, 83, 
85 e Ringo. Indica nível certo para carregar programas sem proble¬ 
mas e falhas. (Veja Microhobby N? 10, 12 ou 13). Já um GRANDE 
SUCESSO PROVADO por centenas de usuários do TK. PREÇO: 
Cr$ 49.000,00 (Março). 

Mande seu pedido com cheque nominal ou vale postal para 
EKTRONIC COMPONENTES E SISTEMAS LTDA. Caixa Postal 
7004. São José dos Campos. CEP: 12200. Tel.: (0123) 291148. 


BAHIA 


Sua empresa poderia estar aqui. 

Anuncie no HOBBYSHOP e todos os Lei¬ 
tores da região conhecerão sua empresa. 
Anúncio econônico e de retorno garantido. 


RIO DE JANEIRO 


PROSERV-Processaiento Dados.Cursos e Rep.Ltdi. 

.MICROCOMPUTADORES (Novos e Usados) 

.CURSOS (Cobol. Basic. CP/N. DBase II) 

.SUPRIMENTOS (FofMlirios. Disquetes. Fitas, etc.) 

.LIVROS E REVISTAS 

.SOFTWARE (TRS80. Apple. TK85) 

Lg.Nove de Abril 27 salas 626/628 
Tel: (0243) 429800 - V.Redonda - RJ 


MINAS GERAIS 


MICUO F VIDF O 


Curso de Basic com turmas mensais 

Programas para toda linha de microcomputadores — Sinclair, 
TRS-80, Apple, TRS Color, Comodore CP/M — Aplicativos e Jo¬ 
gos (Solicite catálogo especificando seu equipamento). 

Livros e revistas nacionais e estrangeiros. Venda de Micros, peri¬ 
féricos e suprimentos. Soft House. 

VILLABELLA SHOPPING - LOJA 6 

Avenida Japão, 229 — Cariru — CEP 35160 — Fone (031) 821- 
2888 — Ipatinga — MG. 
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Planilhas Eletrônicas 

Álvaro A. L. Domingues 


Apresentamos, neste artigo, quatro 
versões deste aplicativo: para TK 85, TK 90X, 
Apple e TK 2000 II. 



Um funcionário de uma firma de médio porte está preparando 
um relatório para apresentar à sua diretoria, envolvendo dados 
financeiros cadastrados ao longo do tempo. 

Para fazer isso, ele recolhe dados mês*a mês, faz cálculos, con¬ 
sulta tabelas e finalmente lança-os num mapa com linhas e co¬ 
lunas (uma planilha). Este trabalho lhe consome, diariamente al¬ 
gumas horas até que, finalmente, o mapa está pronto para a apro¬ 
vação da diretoria. 

Os dados estão corretos, as fórmulas de cálculo estão corre¬ 
tas, o mapa é aprovado. Só que um dos diretores resolve fazer 
uma consulta: 

- "O que aconteceria se a inflação projetada fosse 30% maior?" 

Para responder esta pergunta o funcionário deveria refazer qua¬ 
se toda a planilha novamente, perdendo algumas horas em sua 
reestruturação. 

Cenas deste tipo são freqüentes em qualquer empresa que ne¬ 
cessite manipular dados que devam ser tabelados. 

Este problema foi sentido por Dan Bricklin, um estudante do 
curso de pós-graduação em Administração de Empresas na Uni¬ 
versidade de Harvard, Estados Unidos. Em 1979, Bricklin cursa¬ 
va uma disciplina onde era necessário o uso de várias planilhas, 
algumas muito extensas, com cálculos e fórmulas complexas. 
Um de seus professores o recomendou a um dos poucos espe¬ 
cialistas em programação de microcomputadores, particularmen¬ 
te o Apple: Dan Flystra. Os dois desenvolveram, em conjunto, 
a primeira versão de uma "planilha eletrônica" em BASIC, que 


serviu aos propósitos iniciais. Pouco depois, um terceiro elemento 
foi agregado à equipe: Bob Frankston, um especialista em Lin¬ 
guagem de Máquina para o Apple. 

Desta associação nasceu o VisiCalc, o programa mais vendi¬ 
do no mundo inteiro e o verdadeiro responsável pela populariza¬ 
ção do Apple e pela conseqüente revolução dos microcomputa¬ 
dores. 

Posteriormente o VisiCalc deu origem a várias versões para ou¬ 
tros computadores e outras versões melhoradas, entre elas o fa¬ 
moso Lotus 1, 2, 3. 


Porque é tão útil? 

Uma descrição rápida e suscinta provoca em quem toma con¬ 
tato pela primeira vez com planilha eletrônica um comentário do 
tipo: "mas, só isso?" 

Na realidade, só com a manipulação diária de planilhas é que 
sentimos o que ela representa. Imagine se você tiver que cata¬ 
logar uma tabela de 10.000 itens? Além disso, se 5000 destes 
itens estão intimamente inter-relacionados? 

Pense agora que você irá alterar um destes 5000 itens. Isso 
significa mudanças nos outros 4999, que deverão ser feitas uma 
a uma! 

Imagine agora que no mês seguinte você deverá tabelar tudo 
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de novo, com dados novos. Isto significa pelo menos 5 mil cá- 
culos a serem feitos. 

O que as planilhas eletrônicas permitem é o aproveitamento 
de um modelo, ou seja, ao invés de calcularmos cada dado em 
função de uma fórmula, podemos armazenar a fórmula em um 
endereço em particular. Assim, quando introduzirmos novos da¬ 
dos, ao invés de calcular o conteúdo de todos os endereços à 
mão, o computador fará isso com o uso de uma fórmula já 
armazenada. 

Deste modo, só teremos o trabalho de criar um modelo e 
aproveitá-lo para uso posterior. 

Além do VisiCalc, abrangeremos neste artigo outras planilhas, 
destinadas ao TK 2000 II, o TK 90X, e o TK 85. 


O VisiCalc 

Trata-se da planilha sobre a qual todas estão baseadas, de for¬ 
ma que descrevemos sua estrutura e indicaremos aonde as ou¬ 
tras dela diferem. 

O VisiCalc é formado por uma planilha de 63 colunas, identi¬ 
ficadas por uma ou duas letras (de A a BK) e por 254 linhas nu¬ 
meradas de 1 a 254, perfazendo um total de 16002 endereços 
ou cédulas. 

Existem várias versões para inúmeros computadores, mas a 
que veremos aqui é destinada em particular ao Apple e seus com¬ 
patíveis. Para rodar a versão que descrevemos, é necessário um 
microcomputador da linha Apple com pelo menos 48k de me¬ 
mória RAM, uma unidade para leitura e gravação de disquetes 
de 5 1/4", um disquete com o programa e pelo menos um dis¬ 
quete para gravar dados. 

Do total de células disponíveis, apenas uma parcela é mostra¬ 
da na tela do micro, ou seja, é mostrada uma janela da planilha. 

A célula que está sendo trabalhada é mostrada em vídeo re¬ 
verso, indicando a presença do cursor sobre a tela. Este cursor 
pode ser deslocado para outras células com auxílio das teclas 
com setas (para direita ou para esquerda quando o indicador no 
canto superior esquerdo do vídeo for um traço (-) ou para cima 
ou para baixo quando o indicador for!) ou por meio do comando 
GOTO, acessando pelo símbolo >, que permite ao usuário esco¬ 
lher qual a próxima célula que irá trabalhar. Quando o cursor atin¬ 
ge um dos limites da janela, toda ela é movida de uma posição 
na direção do movimento, mostrando uma linha ou coluna que 
antes não era apresentada, mas deixando de exibir a linha ou co¬ 
luna no extremo oposto. Este recurso permite ao usuário ter dis¬ 
ponível uma planilha de tamanho virtual muito maior do que aque¬ 
le que realmente pode ser mostrado. 

Cada célula pode admitir três tipos de dados: 

a. Títulos ou mensagens; b. Valores; c. Fórmulas e funções. 

As funções e fórmulas do VisiCalc é que o tornam poderoso, 
conferindo-lhe a característica de ser uma planilha dinâmica ao 
invés de estática, como ocorre com uma planilha de papel. 


As Fórmulas no VisiCalc 

Podemos relacionar, no VisiCalc, conteúdo de uma ou várias 
células com outros valores ou conteúdos de outras células. Por 
exemplo: 

Queremos que a célula B4 (coluna B, linha 4) contenha o con¬ 
teúdo da célula B5 somado ao conteúdo da célula C6. 

Devemos digitar então quando o cursor estiver sobre a célula 
B4:(B5* C6) 


Devemos usar parênteses para que o computador reconheça 
o conteúdo da fórmula como um valor e não como uma 
mensagem. 

Uma vez digitado, devemos passar o cursor para a próxima cé¬ 
lula ou pressionar a tecla RETURN. A partir de então o conteúdo 
da célula B4 conterá o resultado da fórmula nela representada. 
Toda vez que o conteúdo de uma das outras duas células for al¬ 
terado, o valor de B4 será recalculado em função dos novos 
valores. 

O VisiCalc admite as mesmas operações do BASIC (adição, 
subtração, multiplicação e potenciação), com a mesma simbo- 
logia, porém, com uma diferença importante: a hierarquia de ope¬ 
rações segue a ordem da escrita , da direita para esquerda, ao 
invés de ordem usada em matemática. 

Isso implica num cuidado maior no uso das fórmulas, porém, 
com um pouco de prática o usuário habitua-se com a nova or¬ 
dem das operações 


As Funções 

Além do uso de operações, o VisiCalc pode acessar diversas 
funções. Para acessá-las é necessário primeiro digitar-se o sím¬ 
bolo @, seguido pelo nome da função e, entre parênteses, a cé¬ 
lula ou células que serão afetadas. Por exemplo: a função SUM 
realiza a soma de várias células. Se desejarmos que a célula G20 
contenha a soma das células Al, A3, B4 e C9 devemos digitar, 
quando o cursor estiver sobre a célula G20: 

@ SUM (Al, A3, B4, C9) 

Se por outro lado, desejássemos que esta mesma célula con¬ 
tivesse a soma do conteúdo dos endereços de Al a A18, deve¬ 
ríamos escrever: 

@ SUM (A1...A18) 


A tabela 1 mostra as funções disponíveis no VisiCalc. 


TABELA 1 - As Funções do VisiCalc 

SUM 

Efetua a soma de células. 

MIN 

Verifica qual o menor valor de uma série de 
células. 

MAX 

Verifica qual o maior valor de uma série de 
células. 

COUNT 

Verifica quantas células foram preenchidas de 
uma série. 

AVERAGE 

Calcula a média aritmética de uma série de 
células. 

NPV 

Calcula o valor presente de um fluxo de caixa. 

CHOOSE 

Procura por uma determinada célula, exami¬ 
nando o conteúdo que contém sua 
coordenada. —► 
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LOOKUP 

Procura por um valor em uma tabela. 

NA 

Torna o conteúdo de uma célula não disponí¬ 
vel, ou seja, impede que ele seja lido, alterado 
ou usado em fórmulas. 

ERROR 

Torna o valor de uma determinada célula, erra¬ 
do, bem como dele dependem. 

PI 

Fornece o valor de PI. 

ABS 

Calcula o valor absoluto de uma determinada 
célula ou valor. 

INT 

Fornece a parte inteira de um valor ou de uma 
célula. 

SQRT 

Fornece a raiz quadrada do conteúdo de uma 
célula ou de um valor. 

L0G10 

Fornece o valor do logaritmo na base 10 de 
um valor ou célula. 

SIN 

Seno de um valor ou célula. 

ASIN 

Arcoseno de um valor ou célula. 

COS 

Cosseno de um valor ou célula. 

ACOS 

Arco-seno de um valor ou célula. 

TAN 

Tangente de um valor ou célula. 

ATAN 

Arco-tangente de um valor ou célula. 

TRUE 

Torna o conteúdo de um endereço verdadeiro, 
escrevendo a palavra TRUE. Este valor poderá 
ser testado por uma função IF. 

FALSE 

Torna o conteúdo de uma célula falso, escre¬ 
vendo a palavra FALSE. Este valor poderá ser 
usado por uma função IF. 

NOT 

Inverte o valor lógico(verdadeiro ou falso)de 
uma célula. 

OR 

Realiza a operação lógica OU entre duas ou 
mais células. 

ÂND 

Realiza a operação lógica E entre duas ou 
mais células. 

IF 

Executa determinada operação ou função se o 
conteúdo de uma determinada célula for ver¬ 
dadeiro. Caso contrário, executará outra opera¬ 
ção. 0 resultado de qualquer destas operações 
é armazenado na célula que contém o valor a 
ser verificado. 

ISNA 

Verifica o conteúdo de uma determinada 
célula não disponível (NA). 


Recursos de manipulação 


Além destas funções e operações existe um grande número 
de recursos para a manipulação de células e de janelas. 

Para termos acesso aos comandos devemos digitar (/), segui¬ 
do por uma letra. Cada letra representa um comando diferente, 
permitindo apagar-se uma célula, incluir linhas ou colunas, defi¬ 
nir parâmetros para a planilha toda, abrir segunda janela etc. Em 
alguns destes comandos é necessário a digitação de uma se¬ 
gunda ou terceira letra, indicando a opção a ser feita. Na tabela 
2 mostramos alguns comandos usados no VisiCalc. 


TABELA 2 - Resumo dos comandos do VisiCalc 

/ B 

Apaga o conteúdo de uma célula. 

/C 

Apaga a planilha toda. 

/D 

Deleta uma linha (L) ou coluna (C). 

/E 

Permite a edição de uma célula(correção, in¬ 
clusão e apagamento de caracteres). 

/F 

Formata a tabela(D-Cancela formatação, G- 
Global, L-Esquerda, R-Direita, $(com duas ca¬ 
sas), l-lnteiro, *(com asteriscos). 

/G 

Define características para a tabela toda: C- 
Largura da coluna, O-Determina a ordem de re- 
cálculo(R-linha, C-coluna), R-Muda a caracte¬ 
rística de recálculo(A-automático; M- 
manual), F-Muda as entradas formatadas para 
o formato especificado. 

/I 

Insere a linha(R), ou coluna(C). 

/ M 

Move coluna ou linha de lugar. 

/P 

Permite a impressão da planilha. 

/R 

Permite a repetição do conteúdo de uma célu¬ 
la de forma fixa ou relativa. 

/S 

Permite a gravação da planilha. 

/T 

Reserva uma determinada área da planilha pa¬ 
ra textos. 

/W 

Divide a tela em duas janelas a partir da linha 
ou coluna especificada, com movimento sin¬ 
cronizado ou não: H-horizontal, V-vertical, L- 
cancela janela, S-sincroniza o movimento, U- 
pára o sincronismo. 

/- 

Repete um caractere n vezes 


TKalc 


Computadores de porte pequeno geralmente são vistos como 
destinados basicamente para jogos, diversões ou como uma pon¬ 
te de partida para o aprendizado de BASIC. 

Só que computadores pequenos não servem apenas para is¬ 
so. Muitos usuários descobriram alguns usos comerciais, tais co¬ 
mo elaboração de folha de pagamento, controle de estoque, ar¬ 
quivos, etc. Esse uso justifica a existência de planilhas eletrôni¬ 
cas para computadores deste porte. No mercado existe versão 
simplificada do VisiCalc visando atender usuários: trata-se do 
TKalc. 

Este programa, da mesma forma que o VisiCalc, permite ob¬ 
ter uma planilha de linhas e colunas, com uma janela na tela. En¬ 
tretanto, tanto as linhas como as colunas são numeradas (não 
são usadas letras para indicação de colunas) e o número máxi¬ 
mo de células é variável, dependendo do número de fórmulas 
utilizadas. Este valor deve ser fixado no início da elaboração da 
planilha. 

O TKalc permite que se use como fórmulas, qualquer opera¬ 
ção ou função disponível no TK 85, obedecendo a mesma hie¬ 
rarquia do BASIC e, o mesmo modo de digitação do TK 85. Na 
tabela 3 mostramos quais os comandos e recursos disponíveis 
no TKalc. 
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CAPA 


TABELA 3 - Recursos do TKalc 


l,M,J,ou L 

Move o cursor. 

K 

Permite a entrada de um dado ou fórmula. 

Q 

Insere a fórmula que foi incluída em último lu¬ 
gar na célula onde estiver o cursor. 

C 

Calcula a tabela. 

F 

Mostra as posições das fórmulas. 

R 

Retorna ao menu principal. 

H 

Copia na impressora, a partir da célula onde 
estiver o cursor. 

P 

Permite que a fórmula seja armazenada para 
uso posterior ou para correção. 

D 

Apaga a fórmula da célula onde estiver o cur¬ 
sor, bem como o seu conteúdo. 


SoftCalc 


O TK 90X transformou-se rapidamente num microcomputa¬ 
dor com múltiplos usos, revelando-se um computador bastante 
poderoso, mesmo quando comparado a micros de maior porte. 
Dentro de sua vasta gama de aplicativos disponíveis, o TK 90X 
não poderia deixar de apresentar uma planilha eletrônica. Trata- 
se do SoftCalc, uma planilha com bastante recursos. 

O SoftCalc permite a criação de uma planilha de até 99 colu¬ 
nas por até 250 linhas, com um total de 24.750 células. Ao con¬ 
trário do VisiCalc, as linhas estão identificadas por letras e as 
colunas por números. 

Todas as operações disponíveis no TK 90X também estão dis¬ 
poníveis no SoftCalc, mantendo a hierarquia do BASIC e o mo¬ 
do de digitação próprio do TK 90X. Seus recursos são muitos, 
permitindo uma grande versatilidade na manipulação de dados 
(tabela 4). 


TABELA 4 - Recursos e comandos do SoftCalc 

5,6,7,8 

Move o cursor. 

SHIFT + 

5,6,7,8 

Move a janela. 

Gráfico 
(SHIFT 9) 

Permite a construção de um histogramaígráfi- 
co de Barras). 

C 

Calcula a planilha. 

1 

Informa como o valor da posição está relacio¬ 
nado. 0 computador fornecerá uma equação 
ou um dos seguintes códigos: BL(branco) 
VL(valor), TX(texto), RTOinha inteira), RSdinha 
de sub-totais), CT(coluna total), CS(colunas de 
sub-totais). 

G 

GOTO. Move o cursor para a coordenada 
indicada. 

E 

Entrada. Permite a entrada de dados. 

K 

Permite que se copie um valor, um texto ou 
uma equação de uma céluia para outra, de 
forma absoluta ou relativa. —^ 


M 

Permite escolher-se entre a apresentação dos 
dados, de forma inteira, ou com duas casas 
decimais. 

V 

Velocidade. Agiliza o modo de processamento. 

R 

Permite se repetir o conteúdo de uma célula 
para a mesma linha ou mesma coluna. 

S 

Permite-se gravar os dados de uma planilha. 

T 

Total/Sub-total. Usado para estabelecer totais 
ou sub-totais de uma linha ou coluna. 

A 

Área de trabalho. Transfere o valor da planilha 
para a área de trabalho ou vice-versa. A área 
de trabalho possui muitas funções, entre elas 
a construção de gráficos. 

X 

Amplia os comandos disponíveis, eliminando 
funções de periféricos não usados. 

D 

DATA. Permite definir-se rapidamente textos 
com datas. 


MultiCalc 


Desenvolvido para o TK 2000 II, este aplicativo é bastante se¬ 
melhante ao VisiCalc desenvolvido para a linha Apple, tendo po¬ 
rém, mais alguns comandos e funções. 

Na Microhobby número 16 publicamos uma análise detalhada 
deste aplicativo, mostrando seus recursos. Se o leitor se inte¬ 
ressar, poderá obter mais dados sobre ele lendo este artigo. 

O que diferencia o Multicalc do VisiCalc é sua flexibilidade. Den¬ 
tro dos seus recursos está a possibilidade de se projetar um tre¬ 
cho de uma planilha, tornando-a inacessível a alterações. Este 
trecho pode ser uma linha, uma coluna ou até uma única célula. 
O Multicalc também pode manipular a largura de qualquer colu¬ 
na individualmente, de 1 a 80, enquanto que o VisiCalc pode va¬ 
riar de 3 a 37, mas só globalmente(na planilha inteira). 

Todavia, o MultiCalc rodando num TK 2000 poderá ler plani¬ 
lhas produzidas por um VisiCalc num Apple, sem problemas. Por 
outro lado, nem sempre o VisiCalc poderá ler as planilhas produ¬ 
zidas pelo Multicalc, devido à diferença de recursos dos progra¬ 
mas. 

Além disso, Multicalc é compatível em dados com o MagiCalc 
e com as versões mais avançadas de planilhas eletrônicas, o Su- 
perVisiCalc, em ambas direções. 


Conclusão 


De um modo geral, o maior uso de computadores está com 
as planilhas eletrônicas. Podemos encontrar empresas cujos 
CPDs manipulam quase que exclusivamente dados desta forma, 
o que justifica o enorme sucesso alcançado pelo VisiCalc e suas 
múltiplas versões e o consequente sucesso dos microcomputa¬ 
dores. 

Qualquer pessoa que se interesse em tirar o maior proveito de 
seu computador deverá conhecer pelo menos um tipo de plani¬ 
lha eletrônica. 
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TK 2000 


Cesar de Afonseca e Silva Neto 
Wilson José Tucci 


Neste número apresentaremos um jogo 
muito simples e interessante que não ocu¬ 
pa mais que 1488 bytes de memória. O jo¬ 
go explora os gráficos de baixa resolução 
do TK 2000, podendo ser facilmente 
adaptado para o Apple. 

O jogo consiste em controlar o movi¬ 
mento da bolinha e do rebatedor simulta¬ 
neamente, além de verificar os limites la¬ 
terais e superiores da tela. O jogo também 
permite regular o tamanho da raquete e o 
incremento da mesma, ou seja, quantos 
"quadradinhos" ela andará cada vez que 
pressionarmos as setinhas. Também pode¬ 
mos obter desvios da bolinha através da 
tecla (D). 

Para sabermos como funciona o progra¬ 
ma, primeiramente devemos relembrar al¬ 
guns comandos utilizados. Por exemplo, se 
quisermos desenhar um ponto (quadradi¬ 
nho) em uma determinada posição da te¬ 
la devemos utilizar a instrução PLOT X,Y, 
onde X representa a coluna e Y a linha em 
que o ponto deverá ser desenhado. Con¬ 
vém lembrarmos os limites da tela de bai¬ 
xa resolução. Podemos compará-la à folha 
de papel quadriculada de 40 colunas (0 a 
39) por 40 linhas (0 a 39). Sendo assim, 
para desenharmos um traço horizontal 
desde uma determinada coluna XI até ou¬ 
tra XF na linha Y, devemos utilizar o co¬ 
mando HLIN XI,XF AT Y. Agindo de modo 
análogo, tam bém existe o comando VLIN 
YI,YF AT X. 

Além destes comandos de plotagem 
existe o comando SCRN (X,Y) que é mui¬ 
to utilizado em jogos. Este comando é, na 
realidade, uma função que retorna o códi¬ 
go da cor do ponto (X,Y). Assim se quiser¬ 
mos saber se a bolinha atingiu a parede, 
por exemplo, basta utilizarmos este co¬ 
mando convenientemente. 

Resumindo temos: 

Ponto. PLOT X,Y 

Reta horizontal. HLIN XI,XF AT Y 

Reta vertical.VLIN YI,YF AT X 

Cor de um ponto. SCRN (X,Y) 


Antes disto, porém, para podermos tra¬ 
balhar com tais comandos, devemos defi¬ 
nir uma cor de trabalho através do coman¬ 
do COLOR C (COLOR = C para o APPLE); 
onde C representa o código da cor dese¬ 
jada. Mostramos uma lista das cores exis¬ 
tentes, conforme tabela 1. 


Tabela 1 


TK 2000 

APPLE 

O-preta 

1- azul 

2- verde 

3- branca 

4- azul 

5- vermelha 

6- cyan 

7- branca 

8- vermelha 

9- azul 

10- verde 

11- branca 

12- branca 

13- vermelha 

14- cyan 

15- branca 

O-preta 

1- margenta 

2- azul esc. 

3- púrpura 

4- verde esc. 

5- cinza #1 

6- azul médio 

7- azul claro 

8- marrom 

9- laranja 

1 0- cinza tf 2 

11- rosa 

12- verde claro 

13- amarelo claro 

14- verde azulado 

15- branca 


Agora que já dominamos a baixa reso¬ 
lução podemos iniciar a análise do 
programa. 

Primeiramente definimos as cores do 
trabalho (linha 210). Em seguida forma¬ 
mos a tela do jogo com as cores definidas 
anteriormente (260 a 290). A linha 340 
chama uma sub-rotina em Linguagem de 
Máquina que realiza a varredura do tecla¬ 
do do TK 2000 e armazena na posição de 
memória 58 o código da tecla pressiona¬ 
da. A sub-rotina é a seguinte: 

$ 300 JSR $ F 043 

$ 303 STA $ 3A 

$ 305 RST 

Esta, traduzida para o BASIC, resulta nas 

linhas 240 e 250. Utilizando-a, podemos 
verificar se o teclado foi usado ao mesmo 
tempo que o programa continua correndo. 
Caso nenhuma tecla tenha sido pressio¬ 
nada, o programa segue com o movimen¬ 
to da bola, que consiste basicamente em 
"PLOTAR" um ponto novo (XN,YN) com a 
cor da bolinha (CB) e apagar o ponto ve¬ 
lho (XV,YV) "PLOTANDO-O" com COLOR 


0. Em seguida, XV e YV recebem os valo¬ 
res de XN e YN; XV e YV são incrementa¬ 
dos de IX e IY, respectivamente e tudo se 
repete até que alguma das teclas de con¬ 
trole seja pressionada. 

As linhas 610 a 660 são responsáveis 
pelo movimento do rebatedor. Dependen¬ 
do da tecla pressionada deveremos dese¬ 
nhar a raquete na nova posição, levando 
em conta o tamanho (TR) e o incremento 
(IR) da mesma, e em seguida apagar (CO¬ 
LOR 0) o que restou da raquete antiga. 

O jogo continua até que acabem as bo¬ 
linhas (NB = 0). Você deve ter notado que 
o princípio deste programa é bastante ge¬ 
ral, podendo ser utilizado em outros pro¬ 
gramas de animação gráfica. Neste caso, 
estamos trabalhando com baixa resolução, 
mas a bolinha e a raquete poderiam ser 
SHAPES-TABLE e o jogo poderia funcionar 
por exemplo, em alta resolução. O movi¬ 
mento aparente de qualquer figura pode 
ser feito utilizando este princípio de incre¬ 
mento e troca de valores entre as variáveis 
principais. 

Bem, a criatividade é toda sua, utilize-a 
e você fará coisas incríveis! 

Temos então a tabela das variáveis uti¬ 
lizadas: (tabela 2) 

Tabela 2 


VARIÁVEL 

FUNÇÃO 

L1,L2 

limites 

CL 

cor da lateral 

CR 

cor do rebatador 

CB 

cor da bola 

CP 

cor da parede 

NB 

números de bolas 

TR 

tamanho do rebatedor 

P 

pontos 

REB 

posição do rebatedor 

IX,IY 

incrementos 

XV,YV 

posição nova 

XN,YN 

posição velha 

A 

código da tabela 

C 

cor do ponto 
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PROGRAMAS 


TK 2000 


Para adaptar o programa para o Apple 
você deverá fazer as alterações abaixo: 
Retirar as linhas: 230, 240, 250. 
Efetuar as mudanças da tabela 3. 
Tabela 3 • 


Linha 

Mudar para 

340 

350 

360 

400 

550 

620 

POKE -16368,0 

A = PEEKM6384) 

IF A>128 THEN 610 
inserir GOSUB 1000 

GOTO 350 

GOSUB 1000 


Adicionar as linhas do programa para o 
Apple, conforme figura 2. 

A última sub-rotina do programa/Apple 
introduz dois valores nas posições de me¬ 
mória 768 e 769, que correspondem à to¬ 
nalidade e duração da nota emitida respec¬ 
tivamente. Em seguida (CALL 770) estes 
valores serão utilizados para a geração do 
som. 

Até a próxima! 


iO 

REM 

ROT 

IN A F 

-'ARA 

n t 

f - 1| I.., í4 l .. . i 

DE SO 

M 


20 

REM 

NO 

APPLE 

í (SOUNO 

NO TK 

-2000 

) 


30 

REM 









50 

POK E 

770 

, 173: 

: POKE 

•y / jl 

y 4 8 !! 

POKE 

V ”’f •"> 

,192 


POKE 

773 

, 136: 

:POKE 

774 

„ 208« 

POKE 

775 

r ”I 

y 


POKE 

7 *7 /. 

,206: 

: P OK E 

-y “9 "Y 

Jt a 

y **• ** 

POKE 

y y p 

•*:> 
y '••• 


POKE 

779 

,240: 

: POKE 

780 

9 3 

y f 

POKE 

781 

,202 

60 

POKE 

782 

,208: 

: POKE 

? 8 3 

,245 8 

POKE 

784 

, 174 


POKE 

785 

n : 

y •*' 

: POKE 

786 

v 3 5 

POKE 

787 

,76 


POKE 

7 8 8 

/ ' 

: POKE 

789 

,3 s 

POKE 

791 

,0 


POKE 

792 

,0 








1000 R £ M 8 A R U L MIN H 0 

i 0 1 0 P 0 K E 7 68,5 0 s P 0 K £ 7 & 9 , 6 0 s C A L L 7 7 0 
1020 RETORN 


Í00 REM CONDICOES DE JOGO 
110 TEXT 
120 HOME 

130 HTAB 7: VTAB 2: IMVERSE 
140 PRINT " DEMOLIDO 
8 ": NORMAL 

150 VTAB 5! PRINT TAB( 5)"EN 
TRE COM OS DADOS A SEGUIR" 

160 VTAB 10: HTAB 4: INPUT "T 
AMANHO DA RA8UETE (1 A 10):"?TR 

170 VTAB 12: HTAB 4: INPUT "I 
NCREMENTO DA RAQUETE (1 A 3):"; 
IR 

175 VTAB 16: PRINT TAB( 4);" 
<- & -> MOVIMENTAM 0 REBATEDOR 
E": PRINT TAB< 4)"<D> PROVOCA 
UM DESVIO NA BOLINHA" 

180 VTAB 22: HTAB 4: PRINT "P 
RESSIONE UMA TECLA PARA COMECAR 

190 REM INICIO 

200 Li = 0:L2 = 39 

210 CL = 4:CR = 5:CB = 10:CP = 


6 

220 REB = 17:NB = 5:P = 0 
230 REM SIMULAR INKEYI 
240 POKE 768,32: POKE 769,67: 
POKE 770,240 

250 POKE 771,133: POKE 772,58 
: POKE 773,96 
260 HOME : GR 

270 FOR I = 6 TO li: COLOR = 
CP: HL IN 1,38 AT I: NEXT 
280 COLOR = CL: VLIN Li,L2 A 
T Li: VLIN Li,L2 AT L2: HLIN 1, 
38 AT Li: HLIN 1,38 AT L2 
290 COLOR = CR: HLIN REB,REB 
+ TR - 1 AT 38 
300 REM 

310 INVERSE : VTAB 22: PRINT 
"PONTOS"?: HTAB 26: PRINT "RARU 
ETES"?: NORMAL : HTAB 35: PRINT 
R 

320 REM »* CONTROLE *» 

330 IX = i:IY = i:XV = INT ( 
RND (1) * 38) + i:YV = 12 
340 CALL 768 


350 A = PEEK (58) 

360 IF A < ) 0 THEN 610 
370 REM MOVIMENTO DA BOLA 
380 XN = XV + IX:YN = YV + IY 
390 C = SCRN( XN,YN) 

400 IF C = CP THEN IY = - IY 
: COLOR = 0: PLOT XN,YN:P = P 
+ i: VTAB 22: HTAB 8: PRINT P 
410 IF YN < = LI THEN IY = 

- IY 

420 IF XN > = L2 OR XN < = 

Li THEN IX = - IX 

430 IF C < > CR THEN 470 

440 IY = - IY 

450 IF IX = 1 AND XN > = REB 
AND XN < = REB + INT (TR / 2 
) THEN XX s - 1 
460 IF IX = - 1 AND XN < = 

REB + TR AND XN ) = INT (TR / 

2) + REB + 1 THEN IX = 1 
470 IF YN = 39 THEN 560 
480 XN = XV + IX 
490 YN = YV + IY 
500 IF YN < 1 THEN YN = 1 
510 IF YN ) 38 THEN YN = 38 
520 COLOR = CB: PLOT XN,YN 
530 COLOR = 0: PLOT XV,YV 
540 XV = XN:YV = YN 
550 GOTO 340 

560 NB = NB - i: VTAB 22: HTAB 
35: PRINT NB 

570 COLOR = O: PLOT XV,YV 
580 IF NB < >0 THEN 320 
590 VTAB 23: HTAB 10: PRINT " 
OUTRO JOGO?(S/N) -> "?: GET Rí: 
IF Ri = "S" THEN RUN 
600 END 

610 REM REBATEDOR 
620 REM 

630 IF A = 196 AND (XV < 37 A 

ND XV > 1) THEN XV = XV + SGN 

(IX): COLOR = 0: PLOT XN,YN 
640 IF A = 149 THEN REB = REB 
+ (REB ( 40 - TR - IR) * IR: C 
OLOR = CR: HLIN REB,REB + TR - 
1 AT 38: COLOR = 0: HLIN REB 

- IR,REB - 1 AT 38: GOTO 340 

650 IF A = 136 THEN REB = REB 

- (REB > IR) » IR: COLOR = CR 

: HLIN REB,REB + TR - 1 AT 38: 
COLOR = 0: HLIN REB + TR,REB + 
TR + IR - 1 AT 38 
660 GOTO 340 


MICROHOBBY 35 
















Codificando e 
Decodificando 


Guarde segredo das mensagens com o TK 90X 


Este programa permite codificar e decodificar mensagens de 
qualquer tamanho, com base em uma chave constituída por um 
conjunto de letras. Além disso, pode-se transcrever a mensagem 
na impressora e utilizar o computador como uma máquina de es¬ 
crever com um apagador automático. 

Funcionamento do programa 

Para escrever ou codificar a mensagem utiliza-se um proces¬ 
so conhecido, no qual é impossível fazer a decodificação da men¬ 
sagem sem conhecer a chave. A chave é uma palavra ou um con¬ 
junto de letras que será usada para compor a mensagem 
codificada. 

Este processo consiste em assinalar um valor para cada letra 
(0 para "A", 1 para "B", ..., 25 para "Z"). Este valor é transferido 
para cada letra da mensagem e somado ao valor corresponden¬ 
te à letra de chave, repetindo- se esta operação ao longo de to¬ 
da a mensagem. 

Se o valor resultante for maior que 25, deve-se apenas sub¬ 
trair o valor 26. 

Para decodificar, bastará subtrair o valor da chave, e somar 26, 
no caso do resultado for negativo. 

(Exemplo 1) 

Particularidades do programa 

Contudo execute o programa com cuidado, pois este possui 
algumas particularidades: 

- Não se pode introduzir letras maiúsculas e números com sinal 
de pontuação, já que isto pode servir como uma dica ao possí¬ 
vel decodificador. 

Se for introduzido algo que não seja uma letra minúscula, um 
ponto (para indicar o final da mensagem) ou um espaço, o pro¬ 
grama acusará o erro imprimindo um sinal de interrogação na 
tela, que pode ser apagado pressionando a tecla ''O". 

- Uma mesma letra nem sempre se codifica da mesma forma, 
porque dependerá da posição da letra na mensagem. É im¬ 
possível fazer a decodificação se não se conhecer a chave. 

- Os espaços não se codificam, portanto, não importa que se¬ 
jam iguais ou não. 

- Indica-se o final da mensagem com "." (SYMBOL SHIFT+M). 

- Pode-se apagar o último caractere introduzido, pressionando 
a tecla "0", quando-se estiver codificando ou decodificando. 
Não se deve apagar mais de um espaço ou mais de um sinal 
de interrogação de uma vez, já que isto alterará o código chave. 

- Se o cursor "apresentar" a letra "C" isto significa que o pro¬ 
grama está codificando. Se a letra "D" significa que a mensa¬ 
gem está sendo decodificada ou se for a letra "E", quer dizer 
que a mensagem está sendo escrita. 

- Quando o usuário não quiser mais codificar ou decodificar al¬ 
guma mensagem, o programa se "auto-destruirá" em dez 
segundos. 


- Tanto a mensagem como a chave podem ter qualquer tama¬ 
nho, quando a tela de texto estiver com vinte linhas. Isto signi¬ 
fica que a tela está cheia, então, passe a mensagem para a im¬ 
pressora e continue escrevendo. 

- O programa se armazena em fita com "UNE 0", para que se 
execute de forma automática (linha 8100). A primeira coisa a 
fazer é pedir a "chave de acesso", que é "ISHTAR", porém, pode- 
se variar alterando as linhas 8020 e 8050. Caso for introduzi¬ 
da uma chave incorreta por duas vezes consecutivas, o pro¬ 
grama se apagará da memória. O que impede que pessoas es¬ 
tranhas usem o programa. 

- 0 programa foi desenvolvido para o "TK 90X" e compatíveis, 
ocupa aproximadamente 2.400 bytes na memória disponível 
"2k", pode ser carregado tanto no modelo 16k como o de 48k. 

Conclusão 

O usuário tem plena liberdade de criar qualquer tipo de men¬ 
sagem e elaborar a palavra-chave que desejar. 

Porém, deve tomar cuidado para não perder o programa. Para 
que isto não aconteça, utilize-o corretamente. 


Escrever (mensagem original: ESTAMOS EM SÃO PAULO, 
(chave: "MALA" 

Codificar (mensagem codificada: OSEAYOD EY SLO BAFLA 
(chave: "MALA" 

(mensagem codificada: OSEAYOD EY SLO BAFLA 

(mensagem decodificada: ESTAMOS EM SÃO 
PAULO. 


Exemplo 1 — Fig. 1 
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ÍH * r-' 8 f 8 d P 3 Q d f 0 ü l t. 1 Til 

0 Cd f8 C t8 f p f8 8 81 0 H 8 d t£ C L 8 

•' “Pr 888 i o n 8 u Fn 8 tecla par 
a c o ííi 8 ca r :: 

98 PhUSE 8 
188 REM Inicio 

118 CLS : INPUT :! C i í r a f , De 8 C i f 

f 8 f 0 ü iz. 8 - C f 8 V 8 f ';•* ( C /d /8 ) !: ! 8 í 

115 IF 8 $ = :! 8 :: THEN LET C$ = :! 3 !i : 
GOTO 125 

128 INPUT :: Ch 3 V 8 ? , c $ 

12 b Lb i K$=ÜHR$ CCÜDb 8 $) -32 3 
138 PH IN ! H ! 3 : 8 ; :: ÜU 8 n d 0 0 C U f 8 

O f 3 p 8 f 8 C 8 f : i: FLP5N 1 , k $ : FLR5H 

8 ; !! c o ui e c e a í n t r o d u z i r a m e n s 

8 9 £ fn 

1-4-0 PhUSE 150: CLS 
14-p PR XN í i-LfiSH 1; k s ; FLPSH 0 ; C 
HRf S ; 

_ 1&0 LET c r =0 ; |_ET n =0 
2000 REM notina f rin ci p aL 
2010 PhUSE 0 

2020 LET 3 =CODE INKEY4: SOUND• .0 
5 , -20 

202b Ir a = 48 THEN GOTO 5000 
2 0 2 "7 i_r 1 a t =3 

2030 I-F 3=32 THEN 2 ET b=3: GOTO 
2110 

2040 Ir 3=46 THEN GOTO 3000 
2050 Ir 3>122 OR 3 <97 THEN LET b 
=cb Lb! at =32: GOiO 2110 
2055 LET 3=3-97 

2060 Lb! n=n+l: IF n>LEN C4 THEN 
LET n=1 

2070 L b i C = i C u D E c 4 C fi ) ) - 9 7 
20S0 LET b =3 + íC r i £ 4 = "*"} 5 - ( c r í £ 4 

= "d“ 3 ) 

2090 Ir b >25 THEN LET b = b-2S 
2100 ir b <0 THEN LET b = b+2S 
2105 LET b=b+9/ 

2110 LET b$ =CHR4 b 

2120 PRIN! b4; FLASH 1; k $, FLASH 
0 ;CHRi S; 

2130 Lb! Cf=cr+l IF cr>=640 THE 
N GOTO 3500 
2140 GOTO 2010 
3000 PRINT 

3010 1 NPu! ‘‘ De s e.j 3 Ifft p r í ffi í r ? c s /n 


3 r $ 

3020 Ir r4 = "£ THEN COPY : GOTO 
4000 

3030 IF r $ = ‘*n ’* THEN GOTO 4000 
3 340 G OT O 3 010 
3500 SOUND ,5,0 

N H UT " 3 s £ e j 3 I rí! p r i m i r 7 (s / n 

- ! s 

3520 IF f 4 = "£' THEN COPY : CLS : 

_Lbi Cf=0: PRINT FLASH 1;K4; FLP 

PH 3 ;CHh$ 8; GOTO 2010 

3530 Ir ” 4 = " n " THEN CLS : LET Cf 

=3: _hhINT rLfiSH 1k $ ; FLASH 0 ;CH 

H § o ; : b u ! O 2 818 

3548 GGTG 3R18 

4888 REM Final 

•4818 INPUI !! Rtguma outra Menaaqe 
íh' f i8 /n £ :: ; r s 

4020 IF r 4 = "3 ' : THEN GOTO 100 
4030 Ir r 4 = ‘‘n “ THEN CLS : PRINT 
PT 10,13"Adí us " ; AT 18,5; "Es te p 
í u y i d ííi .3 S £ 3 ü 1 O — 3 P 3 d 3 f 3 ‘ T AT 19.9 
. "era 10 se.gundos": PAUSE 500 : NE 

4040 GOTO 4010 
3000 H b M A P 3 q 3 d O' 

3003 Ir cr=0*THEN GOTO 2010 
3010 Lb! c r=cf-1 IF 3 t =32 THEN 
GOTO 5030 
5015 LET n =n-l 

3020 Ir n =0 THEN LET n=LEN C4 
3030 PRINT CHR4 8; FLASH 1;Ri; F 
i-ASH 0 .;" " ; CHRi 8; CHRi 8: 

3040 GOTO 2010 

3000 CLS : BORDEP 6: PRINT AT 7, 
3 ;_rLASH 1; "Psf £ 3 fita";AT 14,3 
i r L H 3 H 0 ; “ H 3 s s s s r h s p- h p s r p 
£0 " 

3010 INPUT 24 

3020 Ir z 4 = "ish t a r" THEN RETURN 
3030 CLS PRINT AT 7,3; FLASH 1 
"Ch a v £ In c 0 r r e t a " ; AT 14,5; FLAS 
H 0 ; " P 3 £ £ £ 3 C h 3 V £ C 0 f f £ t 3 '' 

3040 INPUT z4 

8030 Ir 2 4 = "1 £h t a r " THEN RETURN 
3060 NE UI 

8100 SAUE "cifrado" LINE 0 


Funções Chaves 

M 

Modifique você mesmo as funções do 90X. 


Nem todas as funções do TK 90X possuem acesso direto. Al¬ 
gumas delas estão juntas com outros comandos. 

Este programa tem a finalidade de simplificar o acesso às fun¬ 
ções, incluindo os gráficos, legendas e o comando UDG. 

O usuário poderá programar separadamente as funções, ou se¬ 
ja, o PRINT separado do P e do TAB. 

Como utilizar o programa 

As definições devem ser feitas nas linhas RÊM, no início do 
programa principal. Você deve seguir um padrão quanto à nu¬ 


meração das linhas, seguindo a instrução REM mais a função 
que será programada, procedida de dois pontos mais a definição. 

A definição pode ser elaborada com a combinação de carac¬ 
teres, gráficos e legendas. 

Caso o usuário deseje que a transformação seja executada de 
maneira automática, deve utilizar o caractere # (NUMERAL), que 
atua como reformulador, ao final da linha. 

Se ocorrer "erro de sintaxe" e quando a linha for executada, 
esta será exibida na parte inferior da tela seguida do sinal de in¬ 
terrogação (?). 

Os dois pontos devem ser colocados entre a função chave, que 
será redefinida. E a nova definição, não apenas separa as duas 
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PROGRAMAS 


TBC i«£ 


condições como coloca o computador no modo [KJ. 

Se você deseja começar a definição com alguma letra do alfa¬ 
beto, que não possa ser acessada no modo [K], é necessário di¬ 
gitar algum sinal ou símbolo para o computador entrar no modo 
[L]. Então digite a letra a ser usada, retornando ao modo ante¬ 
rior e "delete" o que você havia usado. 

Caso uma função-chave seja definida por duas vezes, será con¬ 
siderada a última definição atribuída à função. Note que as fun¬ 
ções se auto repetem se forem pressionadas por algum tempo. 

Funcionamento do programa 

Antes de começar a procurar as definições das funções cha¬ 
ves, o programa pára até que este encontre a primeira linha do 
próprio programa. 

Todas as definições devem ser elaboradas antes do programa 
principal. 

Este processo pode ser interrompido, caso o usuário deseje 
reverter uma função-chave já definida, para sua real posição, 
temporariamente. 

Ao invés de "deletar" todas as definições, você apenas deve 
trocar os números das linhas significando, para o micro, que é 
o fim do programa. Após algum tempo, você poderá reverter o 
processo novamente. 

Os códigos em Linguagem de Máquina estão incluídos nas li¬ 
nhas DATAs do programa BASIC. 

O nono número de cada linha DATA significa a soma das ou¬ 
tras primeiras, e é usado pelo programa para verificar se há er¬ 
ros nas linhas DATAs. 

Digite o programa BASIC, "salve-o" apenas por precaução, e 
em seguida execute-o. Se algum erro for encontrado, o próprio 
programa irá mostrar na tela a seguinte mensagem: "ERRO NA 
LINHA", seguida pela linha onde se encontra o erro. 

O programa BASIC automaticamente recoloca na memória, os 
códigos em Linguagem de Máquina do TK 90X de 48k, porque 
as linhas DATAs estão com os códigos para o modelo de 16k. 

O programa exibirá na tela uma mensagem "PREPARE PARA 
SALVAR", então você deve "salvar" os códigos em Linguagem 
de Máquina. 

Em seguida surgirá outra mensagem: "PREPARE PARA VERI¬ 
FICAR", rebobine a fita até o ponto em que você iniciou a grava¬ 
ção dos códigos, e o programa se encarrega de fazer a verifica¬ 
ção automaticamente. 

Se a verificação for concluída com sucesso, o programa BA¬ 
SIC se auto-destruirá, deixando os códigos travados no endere¬ 
ço 32348 no modelo 16k e no endereço 65129 no TK 90X de 
48k. 

Para salvar os códigos que estão em Liguagem de Máquina 
digite CLEAR 32347 nos modelos de 16k, e CLEAR 65128 para 
o TK 90X de 48k seguido de LOAD " " CÓDIGO. 

O programa deve ser alterado antes de começar o trabalho. 
Para efetuar o acionamento use: 

RAND USR 32479 (TK 90X de 16k) ou 

RAND USR 65260 (TK 90X de 48k) 

Para desativar o programa você deve digitar: 

RAND USR 32486 (TK 90X de 16k) ou 

RAND USR 65267 (TK 90X de 48k) 

Alguns exemplos de definições de funções chaves: 


REM 1; dará um RESET em todas as cores. 

Isto terá uso quando você estiver desenvolvendo um pro¬ 
grama usando uma combinação de cores variadas. Sem¬ 
pre que interromper um programa, sua listagem será ile¬ 
gível. (SYMBOL SHIFT + TECLA 1). 

REM 2; irá imprimir quanto o equipamento possui de memória 
disponível. (SYMBOL SHIFT + TECLA M) 

REM 3; apenas como precaução, caso o usuário digite NEW aci¬ 
dentalmente, perdendo todo o programa que se encon¬ 
trava na memória do equipamento. Caso o mesmo digi¬ 
te "Y" então o programa será apagado da memória. Ago¬ 
ra qualquer outra tecla que for pressionada será ignora¬ 
da, não surtindo nenhum efeito. 

REM 4; altera a função da tecla SPACE. Quando for pressiona¬ 
da aparecerá uma vírgula no vídeo, dispensando o uso 
da tecla SYMBOL SHIFT. 


1 REM í: PP, PER 7: INK 0: CL5 
BORDER ?tt 

2 REM =: PRIN7 55535-USR 7552 


3 REM 5T0P : INRU7 a$: IF âl= 
"y M 7HEN NEW n 

4 REM m 


10 DR7R 

255 ,243,222,213,197,24 

5 : 205 : 107 

, 1694 

11 DR7R 

126,241,193,209,225,25 

1:201: 253 

, 1595 

12 DR7R 

403 : X : X 1 0 : 4 0 0,3 3 , *L 5 ,8 , D 

7,604- 

13 DhTh 

235,237 : 123,51,32,225, 

1,127,1101 

14 DhTh 

1 5 : 1 5 7 : 4 3 7 : 5 5 : 4 3 5,2 4 3 , 

144 : 44 : 1L4 

84 

15 DR7R 

3 3,4 4,4 4,4,4 3 b , 4,3 b , J= 

, 515 

15 DR7R 

78,35,70,35,34,23,125, 

254,775 

17 DR7R 

234,192,35,58,8,92,198 

,32,841 


18 DhTh 

235,35,125,254,58,32,2 

29,35,1004 

13 DPTP 

X 4 3,4 3 4, X 3,4 8,4 4 3,11,1 

1,11,589 


20 DPTP 

-i- -L : 1 4 7 : 4 4 4 : 44,4 X , 'íc , i 3 

5,85,352 

21 DR7R 

22,12,237,33,91,92,35 , 

235,814 


44 C'H ! H 

225,193,237,176,235,43 

,125,254,; 

1489 

23 DR7R 

— : w , ^8,5,2 8 5 1 ,2 2 , x ■■ , i 5 -J, , 

203,730 


24 Dh7h 

1,174,281,1,1,8,285,23 

2,815 


25 DR7R 

25 82,13,58,8,92,253,2 

03,705 


25 DPTP 

1,238,281,62,48,237,71 

,237,1087 


27 DPTP 

2 2,2 0i,8 2,52,237,71,2 3 

7,86,1050 
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Auto-Numerador 

Fábio Augusto Polônio 


Este programa utilitário, destinado ao TK 90X e compatíveis, 
gera automaticamente os números das linhas de um programa 
BASIC. Roda na versão de 16K(listagem 1) ou de 48K(listagem 
2), porém com pequenas alterações devido às diferenças de en¬ 
dereçamento de um modelo para o outro. 

O programa é constituído por duas rotinas distintas, uma es¬ 
crita em BASIC e a outra em Linguagem de Máquina. 

O módulo em BASIC inclui mensagens explicativas e uma ve¬ 
rificação da soma sintática dos códigos de máquina introduzi¬ 
dos via DATA. Se houver algum erro de digitação, ele exibirá uma 
mensagem de aviso, de vendo o operador verificar, cuidadosa¬ 
mente, os códigos das linhas DATA, antes de inicializar a rotina 
em Linguagem de Máquina. 

Após inicializado, o programa gera o número da linha, assim 
que for pressionada a tecla ENTER. Se em algum momento de¬ 
sejarmos alterar o número da próxima linha, basta "deletarmos" 
o número gerado automaticamente e introduzirmos o número 
desejado. 

O passo de uma linha à outra também pode ser alterado com 
POKE 65192, ou 32411 para 16K. 

Enquanto a tecla < ENTER > estiver pressionada a rotina ge¬ 
rará um número após o outro subseqüentemente. Isso pode ser 
usado quando deseja-se deletar parte de um programa, bastan¬ 
do para isso determinar a primeira a ser "deletada" e o passo 
utilizado. 

Devemos observar se a memória do micro está completamen¬ 
te vazia e se as variáveis do sistema estão em seu estado origi¬ 
nal, antes de digitarmos o programa. Este deverá rodar sempre 
com o micro nestas condições pois ele utiliza algumas variáveis 
do sistema que, se não estiverem em seu estado inicial, causa¬ 
rão erros no programa. 


Versão 16 Kb 


1000 REM RUTO-NühERRDOR 
16 KB 

1010 CLEHR 32329: PRINT 


1020 LET C=0: RESTüRE 1060: FOR 
n =32330 TO 32436: RERD 3: POKE n 
.< 3 : i_E s C =C 4*3 : NizXT n : li” C -í > 17c 
48 THEN RRINT FLRSH l; l8 erro em D 
RTR“: STOR 

1030 CLS : PRINT PT 0,0; " EgjjÜÜÜ 


1 0 3i nfU l "tntre o p as s o deseja 
do"; q: POKE 324-11 , q 
10-4-0 PRINT : PRINT “ RR ND USR 323 
40 FflRfl COMtCPR " 

1050 PRINT : PRINT "RPiND USR 323 
3f _PP,Rh PCPBPR “ 

X 0 O 0 L- 1 H ! H b 2 ; b 2 i e *j7 ,"71,2 w í O b ., 2 b' : 
1,0,0,0,62,40,237,71,237,24,201 
1070 DPTP O,255,243,245,229,213, 



b5,32,86,52,4 
1080 DPTP 50,91,126 ., 58 ., 91,125_^bl 


,254,2,40,47,1,246,255,205,196,1 
26,254,1,40. , 37,1,255,255,205,196 
,126,24,29 

11-30 DPTP 175,9,60,56,252,237,66 
,51,198,48,229,33,8,92,119,53,59 
,92,203,239,33,59,92,119,225,58, 
91,125,201,193,209,225,241,251,2 
01 ■ 
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PROGRflMfiS 


Versão 48 Kb 


1808 REM RUTO -NUMERADOR 
48 KB 

1010 CLEfiR 65110: PRINT 


TK 9 0 X • 


1020 LET c =0: RESTORE 1060: FOR 
n=65111 TO 65267: REPD S: POKE n 
.3: LET C= C+a: NEXT n : IF C <>190 
86 THEN PRINT FLASH 1; "arro em D 
PTP" : STOP 

1030 CLS : PRINT PT 8,8 j “I 


1035 INPÜT :! Entre o p as£o deseja 
do";d: POKE 65192,q 
1040 PRINT : PRINT “PPND USH 661 
21 PPRP COf-IECPR " 

1050 PRINT : PRINT "RPND USH 56i 
11 PPRP PCPBPR " 

1060 DPTP 62,62,237 .,71,237,86,20 
1,0,0,0,62,9,237 71,237,94,201_ 
1070 DPTP 0 255 243,245,229,213, 


-i—i i ii M li li li 


32,106,3 




264,12,40 
40,4,254, 


1060 DPTP 50,104,254,53,104,254, 
61,50,104,254,42,73,92.17,18,8,2 

5 

1890 DPTP 1,24,252.205,209,254.2 
54,3,48,57,1,156,255,205,209,254 
,254,2,40,47,1,246,255,285,209,2 
54,254,1,40,37,1,255,255,205,209 
,254,24,29 

1180 DPTP 175,9,68,56,252,237,56 
,61,198,48,229,33,3,92,119,53,59 
, 92,283,239,33,59,92,119,225,53, 
184,254,281,193 , 289,225,241,251, 
201 


Graffitti 


Transformando a tela de texto do micro 


Este programa, destinado a TK 90X com 48k de memória, sua imaginação, e dispô-las na tela, na forma que mais lhe 
possibilita ao usuário escrever na tela, em oito direções distin- agradar, 
tas. Onde você poderá criar frases ou mensagens, de acordo com 

O Programa 


Exemplo de utilização Exemplo de utilização 

do Graffitti do Graffitti na 

nas diagonais horizontal e vertical 



O programa reserva uma "janela" na parte inferior da tela de 
texto, imprimindo sua mensagem nesta parte do vídeo, com a 
mesma cor do "PAPER". 

Esta parte da tela é controlada pelo comando POINT. Obtendo- 
se um resultado positivo, o computador "salta" para uma rotina 
especial de plotagem, dependendo apenas em qual direção vo¬ 
cê deseja escrever. 

Algum problema poderá surgir se você pedir ao micro para es¬ 
crever na tela e dividir o vídeo. Para que isto não aconteça, exis¬ 
tem duas rotinas em Linguagem de Máquina, com o intuito de 
deslocar a tela para memória do equipamento. 

O usuário tem possibilidade de definir as cores da margem 
(BOMBER), do papel (PAPER) e da tinta (INK), antes mesmo de 
começar a escrever na tela. 

O programa descrito dispõe de várias opções de aproveitamen¬ 
to, seja elaboração de títulos ou legendas, ou possibilitando ao 
usuário ressaltar algo que seja de interesse geral. 

Com esse tipo de programa o usuário poderá tirar maior pro¬ 
veito de seu micro e ir descobrindo o que seu equipamento tem 
a oferecer. 
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0 Programa usado para 
criar graffitts 

1© PFM + ** Uid £ 0 Graf fltti * * 


7020 P ! H INT " H a f 8 —■ 8 L V 8 f 3 t. - -■ 

4-0 f: L E RP :-;qqqq FOR n =40000 TO 


q U £ P 0 d £ i £ f d £ £ t f u i d 3 p 0 f tfl £ fi £ 3 9 
£n£ d£ INPUT OU d £ £rrc, £ L3 £ 

40023: RERD 8 : POKE n ,8 NtXi n 


t r a n £ feri d a p a r a a h fl H £ c h a m a d 

45 DATA 33,0,64,17,30,196 X .. ia 


3 d £ V 0 11 3 3 P Ó £ 0 £ d 3 d 0 £ t £ f £ 

2 , PS , 237,176,201,33,30,195,17,0, 


Fíi £ i d 0 d i q i -1 a d 0 £ . ‘' 

54 : I . 192 = 25 = 237.: 175,201 


7030 PRINT "Uo c £ pod£fé £ £ c r £ v £ r 

50 GOSUB 7 0 0O 


£ m 0 i 1 0 d i r £ V Õ £ £ d i f £ f £ n t £ £ H U Ift £ 

50 GÜSÜ5 5000 


r 3 d 3 £ d £ 1 a 3 n o £ £ n t i d o h o r 3 r i o 

30 CLS : PRINT 50 ; " Men U =Ift " 


s 

35 L ET 3 4 = 1NKEY5: IF 8 $ = "Ift" UR 


7040 RETURN 

aí="M" THEN GOSUB 9000 


800.0 PRINT só; “Esc olha a cor do 

36 IF aí="" THEN GOTO 36 


pape 17 (0 3 7 5“ 

90 CLS : PRINT «0;"Em qual dl 


3010 LET 3$=INKEY$ 

f £ c ã 0 V 0 C £ d £ £ £ -i 8 £ s - c r £ V £ f ? 1 I s 


8020 xF 3 $ >“7“ OR 3 S <“0" THEN GO 

8 3 “ 


TO 3010 

100 LET a 4 = INKEY4: IF 8 4 > "8" UH 


3030 PAPER URL 3$: CLS : FOR n=0 

aá<“l“ THEN GOTO 100 


TO 10.0: NEXT n : LET C =URL 3 $: 0 

115 LET 8 =UhL aí 


LS RflND USR 40000 

120 INPUT í! fi£ n £ £ a g £ rí; :! ; rí; $ 


8040 PP INI #0;"EscoLha a cor da 

125 IF LEN ííi $ >20 THEN GOTO 120 


tin ta? (0 a 7)" 

130 INPUT i! X inicio" ;x 


3050 LET 3 $ = INKEY $ 

140 INPUT !, Y inicio" ;y 


3030 IF 8 $ > " 7" OR 31<“0“ THEN GO 

145 RflND U5R 40012 


TO 8050 

145 LET c* = " 


8070 INK URL 3 4: CLS : FOR n=0 T 


0 100: NEXT n 

147 PRINT PT 21,0; INK Ci PAPER 


8080 PRINT 50;"Escolha a cor da 

C i c $ 


ma r gem ? (O a 75" 

150 PRINT RT 21., 0; INK c; PAPER 


8090 LET 3 $ = INKEY4 

c ; fíi 4 


8100 IF 3 4 >"7" OR 3 4 <“0" THEN GO 

160 FOR n =0 TO LEN lft$*8 


TO 8090 

170 FOR 0=0 TO 7 


8110 BORDER URL 3$: FOR n =0. TO 1 

ISO IF P 01NT í n 0 ) = 1 THE N G 0 3 U B 


00: NEXT n: RETURN 

1000 + 10 *3 


9000 CLS : PRINT " Me n U 1 , R 1 . 

190 NEXT 0: NEXT n 


terar Cores."'"2.Limpar a Tela." 

195 FOR i=1 TO 300: NEXT i 


'"3.Imprimir Copias."'"4.6aivar 

200 RR ND USR 40000 


a tela £ ift fita. "'"5.Exibir a t £i 

210 GOTO 30 


3 . " 

1000 REM *Ro t i n a d e P L o t a g £ m * 


9010 PRINT 50 ;" 1,2,3.4 OU 5" 

1010 P L OT 0 - X , n + >4 : R ET U R N 


9020 LET 3 4 = INKEY4 : IF 3 4 >" 5 " OR 

1020 PLOT n+x-o .fi+U +0 : RETURN 


3 $ <" 1" THEN GOTO 9020 

1030 PLOT n + x , o +y : RETURN 


9030 IF 3 4 =" 1 " THEN FOR n=0 TO 1 

1040- PLOT n+x+O.O+M-n: RETURN 


00 : NEXT n : GOSUB 3000 

1050 PLOT D+X,n-y: RETURN 


9040 IF 34="2" THEN CLS : RflND U 

1060 PLOT n- X -0 , n- 4 + 0 : RETURN 


SR 40000 

1070 P L OT n - X 0 - y : R ET U R N 


9050 IF 3 4 = "3" THEN RflND USR 400 

1080 PLOT n-X+O.O-M-n: RETURN 


12: PRINT RT 21,0;" 

7000 PP: I MT " G r 3 f f i 11 i “ 


“: COPY 

: PRINT RT 0,0; OU ER 1.1 " 


9060 IF 34="4" THEN INPUT ”NOfft£ 



d0 fl r qui V 0 ?"; 3 4 : RflND USR 40012: 

7010 PRINT :: Es te programa pena 


SRUE 3 4SCREEN4 

it£ q U £ VOC£££Cf£Va Ti 8 t£l8 £ 


9070 IF 34="5" THEN RflND USR 400 

iíi oito d i - f £ Ç S £ £ . 


12 : INPUT " Di Q ite Enter" ; X 4 


9080 FOR n =0 TO 100 : NEXT n : RET 
URN 

■ 
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Apertem os cintos, 
o piloto sumiu! 

Álvaro A. L. Domingues 


Você é um piloto que, com auxílio de seu TK 90X, 
deve pousar um avião em circunstâncias de emergência. 


Você está num vôo com destino à Europa e tudo parece cor¬ 
rer bem. Entretanto, no almoço são servidos dois pratos diferen¬ 
tes: peixe e frango. Você come frango. Parte dos passageiros e 
da tripulação prefere peixe. Só que o peixe está estragado e pro¬ 
voca intoxicação em todos, inclusive no piloto. O único com con¬ 
dições físicas e com algum conhecimento de pilotagem é você. 

Nestas condições, você terá que pousar o avião sem proble¬ 
mas, salvando os passageiros e evitando um grave acidente. 

Este foi o tema de "Voando para o perigo", best-seller que deu 
origem a vários outros livros sobre desastres aéreos e ao cinema- 
catástrofe dos anos 50 e posteriormente nos anos 70 (vide a 
série Aeroporto). Mais tarde surgiu "Apertem os cintos, o piloto 
sumiu", que ridicularizava a situação, mostrando todos os este¬ 
reótipos do genêro (de personagens e situações). A partir daí nin¬ 
guém mais teve coragem de fazer um filme sobre desastres aé¬ 
reos (a não ser os russos com "A Tripulação "). 

Porém, isso não nos impede de explorarmos o tema, mais uma 
vez, num programa destinado ao TK 90X. Digite-o e divirta-se. 

O Jogo 

Este programa pode ser considerado como o embrião de um 
Simulador de Vôo. Indicamos o funcionamento de cada uma das 
sub-rotinas para que você mesmo possa fazer as modificações. 

0 programa, inicialmente, apresenta uma tela com a descri¬ 
ção do jogo, bem como dos comandos empregados na sua 
utilização: 

p - para subir 
o - para descer 
w - aumenta a velocidade 
q - diminui a velocidade 
t - abaixa o trem de pouso 

A seguir, é mostrada uma tela como a da figura 1. Nela você 
recebe informações sobre a sua altura atual, a sua velocidade 
e a distância que o separa da pista. Posteriormente lhe indicará 
o tamanho da pista disponível. 


FIG. 1 — Tela inicial 



O avião aparecerá no canto inferior direito do vídeo, com uma 
altura inicial de 1070 metros. Entretanto, não é esta a altura mí¬ 
nima. Se você digitar O ele aparecerá no canto superior direito, 
com a indicação de que a altura diminuiu. É como se a janela 
desenhada na tela descesse para mostrar a nova posição do 
avião. Continue digitando O. O avião se deslocará no sentido ver¬ 
tical, de baixo para cima. 

Use agora o comando P. O avião se deslocará no sentido ver¬ 
tical de cima para baixo. Quando atingir o canto superior direito, 
recomeçará o movimento do canto inferior direito, como se a ja¬ 
nela tivesse se movimentando para cima. 

Você começa com uma velocidade de 900 Km/h. Esta veloci¬ 
dade não pode ser aumentada, já que é a máxima que pode ser 
atingida por seu avião. Para diminuí-la, use a tecla Q. Cuidado 
para não baixar muito a velocidade, causando a queda do avião. 
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Se a velocidade for inferior a 900 Km por hora você poderá 
aumentá-la até este limite, por meio da tecla W. 

Você não verá o movimento do avião na horizontal, mas terá 
a indicação dele no canto superior esquerdo, onde aparecerá um 
número correpondente à distância até a pista. Quando a distân¬ 
cia for inferior a 1000 metros, você deverá baixar o trem de pou¬ 
so. Quando a distância for inferior a 500 metros, você verá a torre 
de comando. Como o avião fica "parado", (referencial) a torre 
de comando se deslocara', ao longo da tela. Quando a distância 
for 0, você estará sobrevoando o aeroporto. A partir daí, você 
terá dois quilômetros de pista para pousar. Você deverá então, 
tocar a pista (altura = 0) e parar o avião (velocidade = 0). Se a 
pista acabar, você sofrerá um acidente. 

Terminada a missão com êxito, você receberá os parabéns em 
meio a um festival de sons e uma mensagem piscante na tela. 

Caso ocorra uma falha, o avião cairá incendiando-se. 

O programa 

Antes de digitar o programa, digite a função UDG O (SYMBOL 
SHIFT + X) para obter os caracteres acentuados. Assim você 
poderá usar o sinal til ( ) que aparece em algumas mensagens. 

Para ver os sinais, digite UDG 2 (FIG.2). 



TABELA 1 - Caracteres gráficos 

Linha 

Caractere no modo gráfico 

210 

ABBBC, GHGHG 

215 

E,E 

8520 

GHGHG 

8810 

F 


Se você quiser visualizar o que está fazendo, digite esta roti¬ 
na primeiro, e as linhas 1 e 2. 

A seguir rode o programa. Para verificar se você digitou tudo 
certo, acione o modo UDG 2 e compare com a figura 3. 

Agora você pode digitar o restante do programa. Mas, antes 
de fazer isso consulte a tabela 2, que contém as informações 
necessárias para se compreender o programa e o seu funciona¬ 
mento. 


Tabela II - Rotinas e Sub-rotinas 

Linhas 

Função dentro do programa 

1 - 10 

Estabelece o estado inicial da tela 

15 - 40 

Estabelece as condições iniciais 

150-250 

"Gerencia" o jogo 

1000 - 1090 

Verifica as condições de acidentes 

3000 

Fecha em um Loop as rotinas de geren¬ 
ciamento e de verificação de acidentes 

4000-4900 

Mostra a história do jogo e fornece os 
comandos 

8000-8020 

Verifica se o trem de pouso foi baixado 

8500-8550 

Rotina de acidente 

8800-8827 

Rotina de aterrissagem 

8830-8888 

Aterrissagem foi um sucesso(finalização) 

8900-8990 

Controles 

9900-9999 

Caracteres gráficos 


A primeira sub-rotina que o programa usa é a que forma os 
caracteres gráficos especiais, armazenando-os na região UDG 
(uma área da RAM reservada para esta finalidade). Ela está nas 
linhas de 9.900 a 9.999 e tem a incumbência de criar os carac¬ 
teres gráficos utilizados para construir as figuras. 

Para obtê-los, digite primeiro o CAPS SHIFT 9, seguido pela 
tecla que contém o caractere definido. 

Consultando a figura 3, você poderá visualizar quais as teclas 
que contém o caractere em questão. Na tabela I você verá quais 
as letras que devem ser digitadas no modo gráfico para obter 
cada desenho. Importante : Elas só tomarão a forma definitiva 
quando você rodar a sub-rotina 9.900. 


F/G. 3 



1 REM aperte os c 
t O s U !íi i ü 

2 GüSUB 9900 

5 BORDER 5: PfiPER 
7 GüSUB 4-000 
10 CLS : PLÜT 0,0: 
DRfiU 255 : 0 : DRRLí 0 , 


i n t o £ , t< p i o 

5: CLS 

DRhU 0,119: 
-119: DRfiU - 


255,0 


15 

let 

0 

r- 

Q 

II 

IX 

20 

LET 

3 = 1 

25 

LET 

Ü =5000 

30 

LET 

X=8: LET 

35 

LET 

K = 0= 

4-0 

LET 

T =0= 

150 

LET 

ü =C-10 

160 

LET 

D=0-2000 

170 

IF D 

< =0 THEN 


INK S; PAPER 1:C; 
GOTO 190 


Y =26 


PRINT 
M DE 


fiT 0,0; 
PI5TR " 


1-30 PRINT PT 0,0; INK 6; PfiPER 
1;D;" M fi PISTA " 

2O0 GOSUB 3900 

210 PRINT PT X , Y ' 

215 IF T = 1 TfiEN PRINT P^ X+1.Y+ 
1 . fiT X + 1 , y+4; >•* “ 

220 PRINT PT 1,0; INK 7; PfiPER 
0; fi; •'fiLTURP 


235 GÜSUB 3960 
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PROGRAMAS 






- 1 1 1 j- 

k~- 

—I— 




— 


TT 

~à 

M 


- 

ía v 








TI 1 1 TITI 

r 1 II r h I 






-4- 

_L 

k: 

L__ 

TTT 

“T 

4 




— 


240 LET 5 = 1000-54100 . 

250 PRINT RT 2,0; INK 1.. PhPwk 

6 ; B ; " Km/h _ " _ . _ ^=== 5=5 

1000 REM 

1010 IF C < =0 THEN PRINI hi 15,1.^ 

'’ UOCE PRSSOU DH PISTR''; PT 1 ," L 3... _ 
ACflBOU O COMBUSTIUEL"; RT 12, b.; h 
CIDENTE”: G05Ub Sb 00 
1020 IF G <2000 RND fi 
SUB 5820 

1030 IF fi < =100 AND D 
THEN GOSUE 8800 
1040 IF Ri=0 RND D 


120 THEN GO 
D>0 RND D<500 
:■ 0 . THEN GOTO b 


500 

1050 IF B 


:0 RND R>0 íHEN GOTO b 

500 

1060 IF 8=0 RND fi =0 RND C<2000 H 
ND T = 1 THEN GOTO 8838 _ _ 

1070 IF D<=1000 RND R < =500 RND i 
=8 THEN PRINT RT 5,0; INK 2; hLh 
SH 1 ;"BAIXE O TREM DE POUSO": GO 
SUE 8088 

1088 IF C <2800 RND fi<=0 RND T =8 
THEN GOTO 8500 

1090 IF «fi < 8 fi N D D < 0) O R (D > 5 0 0 
RND fi <100) THEN GOTO 8508 
3000 GOTO ISO 
4080 PRINT RT 0,5; 

do para 0 Periqo"; __ - 

4010 pp jNr PiT 2,0;"UOCE UIRUfl I R 
RN OU ILRMENTE PELRS" 

4028 PRINT RT 4,7; 


FLASH l; 
FLRSH 8 


'Uoan 


’ ILHRS ORNARIR 


4038 PRUSE 108 

4848 PRINT RT 7,1;”0 PILOTO RDOE 
CE REPENTINRMENTEI”: PRUSE 108 
4058 PRINT RT 9,3;"E UOCE E" 0 U 
NICO CflPflZ” 

4855 PRINT RT 11,5; "DE 'FAZER 0 P 
OUSO..."; PRUSE 158 
4068 PRINT RT 13,7;"OS COMANDOS 
SãO: ";RT 15,0; " (0,P) PRRfl CONTRO 
LRR fi RLTURfl": PRUSE 58 
4870 PRINT RT 17,3; " (0 , U) PRRfl fi 
UELOCIDADE" 

4875 PRUSE 208 

4880 PRINT RT 19,3;"(T) PRRfl RBfi 
IXRR 0 TREM ” 

4085 PRUSE 350 
4098 CLS 

4188 PRINT RT 10,3;"UOCE SE SENT 
E CRPRCITADO ?" 

4110 PRINT RT 15,5;“PRESSIONE OU 
RLOUER TECLR" 

4115 PRUSE 8 
4208 CLS 
4980 RETURN 

8010 IF INKEY$=”t" THEN LEi T=l: 
PRINT RT 5,0; FLASH 8 ; INK 5;” 


8820 RETURN 

8588 REM ROTINA DE ERROS 

8585 FOR H=X TO 21 

3510 PRINT RT H.Y; " 4 ^ " j RT H,Y 

; INK 2; PAPER 6 ; t&ÉiÉtâi ; RT H-l, 

Y; PAPER 5; INK 5;" 


8512 PRUSE 5 

8528 IF H=21 THEN PRINT RT 21.0, 
INK • "- - -- 


P " ; RT H.Y; INK 2; PAPER 6 ; "jtfÜÉfib 
: PRUSE 150 
3525 NEXT H 

8527 PRINT RT 15,1;"UOCE MRTOU 0 
8 PASSAGEIROS" 

8528 FOR q =1 TO 308: NEXT q 


8538 CLS : PRINT RT 18,8;"OU!Hfi 
UEZ ?" 

8535 PRUSE 0 

8548 IF INKEY$ = •'£*' THEN GOTO 10 
3558 CLS : STOP 
8880 REM fiTERRISRGEM 
8385 LET K=K+1 

3810 PRINT RT 28,K;"L";RT 21,K," 
fc" : PRUSE 10: PRINT RT 20,K;" 

RT 21,K;: IF K=30 THEN LET K= 
0: PRINT RT 21,30;" ";RT 20,30;" 

3815 RETURN 

8820 LET K=K + 1: IF K=31 THEN Lb i 
K =0 

8825 PRINT RT 21,K; INK 0; PAPER 
5; Oi";RT 28,K;"=* 

3827 RETURN 
883 0 REM sUC£ ££0 
8848 FOR X =0 TO 58 
3358 SOU ND ,I , X: NEXT X 
8355 PRINT RT 12,7; INK 1; PAPER 
6; FLASH 1;"UOCE CONSEGUIU !"; 
FLASH 8 

8868 PRUSE 388: PRINT RT 15,5;“0 
UTRfl UEZ?" 

8878 PRUSE 0 

8888 IF INKEY$="£“ THEN GOTO 10 
8838 CLS : STOP 
8900 REM INKEYi 
3985 LET N4 = INKEY4 

8918 IF N$ = "0" RND X <21 THEN LET 
X = X +1: PRINT RT X-l , Y .; " 

LET R =A — 18 

8928 IF X >28 THEN LET X=9: PRINT 
RT 20 , Y; " 

3938 IF N$="P" AND X>8 THEN LET 
X =X-1: PRINT RT X + l , Y; " ": L 

ET R=fl+10 

8948 IF X < =8 THEN LET X=28: PRIN 
T RT 9,Y;" 

8958 RETURN 

8968 LET N$ =INKEY $ 

8978 IF N4="q" RND S<18 THEN LET 
S = S +1 

3930 IF N$ = “W” RND 6 >1 THEN LET 
S =8-1 


S 9 3 0 

RETURN 

99Õ0 

FOR : 

Z =0 Tü 7. RERD *4 : RERD 

X : RERD Uí 

: RERD v: RERD U: RERD 

t: RERD £ 

: RERD f 

9910 

RÜKE 

ÜSR ,! a :! HZ , M 

9920 

RGKE 

ÜSR s: b :! +z X 

9930 

RÜKE 

USR "C“+2;w 

9940 

RÜKE 

U O R " õ " -tX , V 

9950 

RÜKE 

USR "£"+2,U 

9950 

RÜKE 

USR f "+Z , t 

9970 

■RÜKE 

USR ,, g"+Z,£ 

9980 

RÜKE 

U.SR " h " -i-2 , f 

9990 

DRTR 

0,0,56,0,16,123,64,1 

9991 

DRTR 

0,8,56,0,16,128,72,129 

qqqq 

DR7P; 

0,8,128,0,56,132,105,1 

63 



9 q 9 

DRTR 

7,255,248,8,55,280,185 

. 183 



9P94 

DRTh 

9,255,243,0,0,208,123, 

247 



qqqR 

DflTfl 

127,153,243,0,0,224,12 

3,24 

«■ 


9996 

DRTR 

25b,2bb,248,16,0,H4b,2 

55,2! 

54 


q q q 7 

DRTR 

127,255,248,56,8,255,2 

55,2; 

55 


9998 

NEXT 

2 

9999 

RETURN ■ 
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POR DENTRO DO APPLE 



Definindo Suas Próprias 
Funções e usando DEF/FN 
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Christiano Coutinho Nasser 
Wilson José Tucci 


As funções matemáticas são de gran¬ 
de valia e extrema utilidade para cálculos 
mais elaborados e dirigidos. 

0 APPLESOFT apresenta toda uma ga¬ 
ma de funções que fornecem um determi¬ 
nado valor para cada argumento dado. Es¬ 
sas funções têm a seguinte sintaxe: fun¬ 
ção (argumento). 


DEF FN SEC (X) = 1/C0S(X) 

Função cossecante 
DEF FN CSC (X) = 1/SIN(X) 

Função cotangente 
DEF FN COT (X) = 1/TAN(X) 

Função arco-cosseno 
DEFFNACS = -ANT(X.SQR(1 -X*X) 
+ 1.571 


Quando solicitadas elas retornam o va¬ 
lor da função aplicada ao argumento. Es¬ 
te pode ser um número, uma variável nu¬ 
mérica ou uma expressão, incluindo núme¬ 
ros e variáveis. 

Exemplos de algumas funções: 

SQR, ABS, SGN, INT, etc... 

Com base na necessidade de criar no¬ 
vas funções, apareceu o comando DEF FN 
que apresenta: DEF FN (nome da fun¬ 
ção); (variável) = (expressão) 

Exemplo:(Fig.1) 



Neste exemplo definimos a função 
QUAD (X) que retorna o valor de X 2 . 

Para termos acesso à função, executa¬ 
mos o comando FN. Quando é executado, 
o computador procura a definição da fun¬ 
ção com o nome dado (que já deve ter si¬ 
do definido), substitui o valor da expres¬ 
são algébrica e executa as operações de¬ 
finidas por DEF FN. 

Embora o nome da função definida pos¬ 
sa ser longo, apenas os dois primeiros ca¬ 
racteres são significativos. Além disso, o 
nome não pode conter palavras reserva¬ 
das. 


ATENÇÃO: 

Os comandos CLEAR, NEW, RUN apa¬ 
gam todas as funções definidas anterior¬ 
mente. É bom saber que num mesmo pro¬ 
grama, você pode usar a variável numéri¬ 
ca A, a matriz A(l), a função A e também 
pode ter a variável alfanumérica A$. Um 
exemplo simples pode ser demonstrado no 
programa da figura 2: 


10 DEF FN F í X ) . . 

20 BR 

30 COLOR-4 
40 FOR X =0 TO 39 
50 YIÍ=FN F ( X ) 

60 Y—39--YM 
70 PLQT X,V 
80 NEXI X 
90 END 


A função desejada deve ser colocada na 
linha 10: assim, se desejarmos o gráfico 
de SENO(X), basta alterar a linha 10, para: 


10 DEF FN F(X) = SIN(X) 


Repare que na linha 50 ocorre a busca 
da função definida, ou seja, o valor de X 
é substituído pelo valor de SENO(X). 


Exemplo de definições: 
.Função secante 


PS: introduzir a linha 85: 

85 IF 77 0 THEN Y=0 
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APLICAÇÕES DO MICRO 


O Micro ao alcance 
arquitetura 

Ana Lúcia de Alcântara 


Um sistema CAD - Computer Aided De¬ 
sign (Projetos Auxiliados por Computador) 
deixa qualquer engenheiro ou arquiteto es- 
tupefado, quando apresenta o resultado fi¬ 
nal de um projeto. Quando o computador 
leva, apenas algumas horas para projetar 
o objeto, a estupefação aumenta ainda 
mais. Esta situação de admiração pela tec¬ 
nologia foi sentida por José Eduardo Ma- 
luf de Carvalho, em suas experimentações 
com os seus cinco ZX Spectrum e um 
TK 90X. O arquiteto vem trabalhando com 
os micros há aproximadamente três anos 
e, durante este período, obteve resultados 
que segundo ele, agilizaram em muito os 
projetos de construção civil. Dois progra¬ 
mas: Leis de Zoneamento e Orçamento de 
Obras são os responsáveis pela "automa¬ 
tização" dos projetos de Eduardo. 

A escolha do Spectrum na elaboração 
do seu "Projeto de Arquitetura por Com¬ 
putador" deveu-se principalmente ao bai¬ 
xo custo dos equipamentos, a resolução 
gráfica e a quantidade de periféricos dis¬ 
poníveis no mercado nacional e internacio¬ 
nal para ele. 

Eduardo tem realizado testes de desem¬ 
penho para saber até onde vai a capaci¬ 
dade do micro. Um destes testes foi feito 
recentemente, através da comparação en¬ 
tre o Spectrum e o Apple. "Usando o Ap¬ 
plesoft, percebi que o BASIC do ZX é mui¬ 
to mais fácil do que o do Apple, além do 
Spectrum ser colorido. Embora a resolu¬ 
ção do Mackintosh seja superior, o ZX exe¬ 
cuta as mesmas operações e ganha pela 
vantagem da cor, o que para mim, como 
arquiteto, é excelente". 

A cor em um projeto de arquitetura é 
muito importante, informou Eduardo Ma- 
luf, na elaboração de fachadas, e detalhes 
como pia e ladrilhos. É indispensável, prin¬ 
cipalmente, em projetos de instalações in¬ 
dustriais, na definição de linhas de enca¬ 
namentos, instalações elétricas (indican¬ 
do baixa e alta tensão) e redes de esgo¬ 
tos, água, etc.. 

A automação dos projetos 

Trabalhando com as linguagens BASIC 


e Assembly, o jovem arquiteto já usa em 
seus projetos os recursos oferecidos pe¬ 
los micros. O primeiro passo na estrutu¬ 
ração dos seus dois principais programas 
foi a codificação das Leis de Zoneamento 
do Município de São Paulo, um livro que 
é consultado, periodicamente, por qual¬ 
quer arquiteto ou engenheiro. Neste pro¬ 
grama, Eduardo levou seis meses procu¬ 
rando palavras-chaves, códigos e formas 
de condensar dados acerca das 18 zonas 
da região metropolitana até chegar ao seu 
produto final: um programa com cerca de 
54k de memória (com duas teclas de ví¬ 
deo) que fornece informações sobre as zo¬ 
nas, desenhando os terrenos (de acordo 
com as configurações dadas pelo usuário) 
e calculando as áreas da construção em 
estudo. 

Na execução do projeto de arquitetura, 
José Eduardo começa seu trabalho pesqui¬ 
sando no TK 90X as características da zo¬ 
na referente à obra, visando à otimização 
do lote, de acordo com suas medidas. O 
micro lhe fornece, segundo as informações 
da Lei de Zoneamento, dados como área 
que pode ser construída e as coordenadas 
para desenhar a obra. A partir daí, ele parte 
para a elaboração do projeto (planta bai¬ 
xa), conforme as determinações forneci¬ 
das pelo micro: "por pavimento, eu vou te¬ 
cendo parte da planta, ampliando, paula¬ 
tinamente, o meu projeto e mudando-o 
conforme a adequação do lote." 

Além do programa de Zoneamento, 
Eduardo de Carvalho vem utilizando tam¬ 
bém diversos programas gráficos como o 
de desenho e perspectiva que lhe dão con¬ 
dições de fazer o projeto completo da plan¬ 
ta de qualquer obra, incluindo detalhes de 
arquitetura. Nesta área, ele criou um ban¬ 
co de dados de detalhes onde está incluí¬ 
do um arquivo de caracteres em sua ativi¬ 
dade profissional como, por exemplo, ba¬ 
cia, banheira, etc.. Ao todo são quatro ban¬ 
cos de dados onde constam diversos tipos 
de peças de construção de interiores, con¬ 
seguidos através do deslocamento dos ca¬ 
racteres na memória do micro. 

Programas como Perspectivas permitem 


da 


ainda ao projetista, conforme ressaltou 
Maluf, a formatação do projeto em três di¬ 
mensões, possibilitando a escolha da me¬ 
lhor posição, antes de passá-lo para o pa¬ 
pel vegetal. 

O arquiteto segue toda a rotina de ela¬ 
boração de seu projeto-automatizado, qua¬ 
se que diariamente, usando seus cinco ZX 
Spectrum, um TK 90X, alguns periféricos 
como gravadores, microdrive, impressora 
ZX Printer e uma interface RS 232 ingle¬ 
sa, que permitiu a Maluf de Carvalho a for¬ 
mação de sua própria rede (dois ou mais 
micros que "conversam" entre sí). 

Os custos da melhor forma 

De posse dos dados sobre todas as fa¬ 
ses de execução do projeto e até mesmo 
da finalização do mesmo, o arquiteto tem 
que pensar na parte mais burocrática da 
construção de uma obra: o levantamento 
dos custos. Esta fase, segundo Eduardo, 
é aquela em que o arquiteto mais entra em 
choque com o construtor. "Apresentar fo¬ 
lhas e folhas de papel, às vezes, tira até 
a vontade do sujeito construir", comenta. 

Para facilitar seu trabalho, Eduardo fez 
um programa que demandou 15 dias de 
seu tempo e forneceu o cronograma das 
obras. "Orçamento" possui cerca de 1200 
itens, que fazem parte de qualquer cons¬ 
trução civil, como por exemplo: quantida¬ 
de de tijolo necessário e mão-de-obra. O 
programa utiliza 80k de memória (utilizan¬ 
do expansão e outro micro), e dois arqui¬ 
vos. 

"Com informações sobre tipo de mate¬ 
rial, e tamanho da obra, o programa cal¬ 
cula a quantidade de material necessário 
e, o custo de mão-de-obra, nas diversas fa¬ 
ses da construção", ressaltou Maluf. Além 
disso, conforme explicou, "Orçamentos" 
tem condições de fornecer o custo acumu¬ 
lado em etapas diferentes de fases ante¬ 
riores da construção até determinada eta¬ 
pa, custo por metro quadrado, e a previ¬ 
são até finalização da obra, voltando aos 
dados iniciais. 

José Eduardo Maluf de Carvalho, após 
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um trabalho grande, tem agora planos pa¬ 
ra o futuro. A atividade de arquitetura é a 
que ele menos está mexendo. Trabalhan¬ 
do em cima de seu projeto "automatiza¬ 
do de arquitetura", ele está abrindo sua 
própria empresa, que prestará consultoria 
na área e desenvolverá softwares para as 
mais diversas aplicações. 

Atualmente, Eduardo lança um outro de¬ 
safio à sua criatividade: elaborar progra¬ 
mas que condensem, dentro dos micros 
ZX Spectrum e TK 90X, o Código de Edi¬ 
ficações que, segundo ele, demandará 
muito mais tempo que os anteriores. 


Além deste, ele tem outros planos, co¬ 
mo por exemplo, programas que forneçam 
relações de plantas usadas em projetos, 
conforme o tipo de solo. 

O uso do computador em projetos de ar¬ 
quitetura, só vem facilitar o trabalho do ar¬ 
quiteto e elevar sua criatividade, raciona¬ 
lizando erros de cálculos nos projetos. Ele 
contradiz a atitude de seus companheiros 
de profissão que ainda não optaram pela 
tecnologia, afirmando: "a tecnologia é ma¬ 
ravilhosa, possibilita maior dinamismo no 
nosso trabalho, mas a originalidade sem¬ 
pre estará a cargo do profissional". 


r \ 

A MANIA DE SER 
INTELIGENTE 


Micro Computadores Li¬ 
nha TK — Temos TK-83, 
TK-85 e TK-2000. Também 
temos expansões de memó¬ 
ria, Joysticks e programas. 

Micro Computadores Li¬ 
nha Apple — Temos os 
preços mais baixos da cida¬ 
de. Trabalhamos com todos 
os tipos de expansão e peri¬ 
féricos. Grande quantidade 
de programas de jogos e 
aplicativos. Temos também 
Joystick analógico para 
Apple. 

Disquetes — Todas mar¬ 
cas de disquetes a preço de 
atacado. 

Literatura — Os melhores 
livros e revistas sobre a in¬ 
formática e video games. 


jHjyyfnAMA 

Al. Santos, 847 
Fone: 283-5376 
São Paulo 


VENHA NOS VISITAR E 
CONHEÇA A NOVA MANIA 
QUE ESTÁ CONTAGIANDO 
A CIDADE. 

__ J 



A rede de micros formada com o TK 90X e o Spectrum do arquiteto. 



"Por pavimento eu vou tecendo parte da planta, ampliando, paulatinamente, o meu projeto'. 
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A Informática e os 
Direitos Intelectuais 

Eduardo Vieira Manso 
Revista dos Tribunais 



Ana Lúcia de Alcântara 


O autor ; conhecido jurista na área de 
informática, lança o seu primeiro livro, 
versando sobre um dos temas mais po¬ 
lêmicos quando se fala sobre "programas 
para computadores": a legislação que diz 
respeito à proteção aos direitos intelec¬ 
tuais dos autores. Dando um enfoque 
mais científico do que "jornalístico" à 
questão, o doutor Eduardo Vieira Manso 
trata o problema de maneira aprofunda¬ 
da, apresentando inclusive, novas formas 
de tratamento jurídico do objeto de es¬ 
tudo - que é o software. Ao invés de 
tratá-lo por seu nome inglês, identifica- 
o (baseando-se no neologismo francês) 
como logiciário. 

Pesquisando em diversas legislações 
(francesa, inglesa, norte-americana, en¬ 
tre outras), o advogado notou que exis¬ 
te confusão, notória, em todas elas, com 
relação ao problema. Os bens intelec¬ 
tuais são sempre colocados a nível dos 
direitos autorais do autor. Mas, seria es¬ 
te, o caminho legal de se elaborar uma 
Lei de proteção do logiciário?. 

Dividido em três partes, "A Informáti¬ 
ca e os Direitos Intelectuais" aborda a 
questão partindo do pressuposto que o 
leitor não entende de legislação - ou dos 
meandros que envolvem a elaboração de 
Leis. Dessa forma. Vieira Manso inicial¬ 
mente fornece uma visão geral do que 
seja Direito Autoral, e fala dos tipos de 
obras intelectuais que merecem proteção 
legal. Logo em seguida, levanta indaga¬ 
ções acerca do papel do "preparador" na 
obra intelectual, elaborada via computa¬ 
dor. E ressalta: "... de conformidade com 
as regras do Direito Autoral, somente se 
há de atribuir a titularidade de direitos 
autorais àquele que é o autor da consi¬ 
derada. Assim, sobreleva a importância 
de se determinar a autoria da obra, cria¬ 
da com o concurso de computadores ele¬ 
trônicos, e desde logo surge a figura do 


"programador", visto que a máquina so¬ 
mente age com a aplicação de um pro¬ 
grama próprio". 

Diante da problemática da obra inte¬ 
lectual no meio informático, o autor man¬ 
tém em todo decorrer da obra, uma linea¬ 
ridade de pensamento admirável, mos¬ 
trando todos os aspectos que devem ser 
levados em consideração, na formulação 
de legislação específica. 

Para concluir todo o estudo desenvol¬ 
vido, Manso encerra sua obra levantan¬ 
do polêmica sobre como deve se com¬ 
portar um Direito Informático no Brasil, 
afirmando que o País tem sido um impor¬ 


tador de tecnologia e, em particular, da 
tecnologia de Informática". Com esta ob¬ 
servação o autor expõe a necessidade 
dos poderes constituídos, na esfera de 
suas atividades próprias, assegurarem os 
interesses nacionais. A partir deste ponto 
Vieira Manso vai apresentando as medi¬ 
das adotadas com o intuito de proteger 
estes interesses. E concluindo, destaca 
a observação crítica de Ripert: "não de¬ 
vemos acreditar na evolução fatal do Di¬ 
reito, e considerar toda reforma como um 
progresso; nem, tão pouco, negar cega¬ 
mente a necessidade de fazer evoluir o 
Direito e de reformar as instituições." 
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Programando com 
símbolos gráficos/ 
32 programas usando 
símbolos gráficos. 


Ismael Sá Netto 
Micro Livro Sulina 



Os antigos livros de bolso estão de vol¬ 
ta, agora na área de informática. A Livra¬ 
ria Sulina, no Rio Grande do Sul, pegou a 
idéia e está lançando dois exemplares, 
com o formato de uma caderneta de ano¬ 
tações, que trazem inúmeras dicas e pro¬ 
gramas desenvolvidos no precursor dos mi - 
cros da linha TK; o TK 82C. 

Como os próprios títulos já demonstram 
os lançamentos da livraria gaúcha tem co¬ 
mo intuito apresentar aos usuários descri¬ 
ções dos símbolos gráficos do TK e pro¬ 
gramas que se utilizam destes recursos. 

Dessa forma, conforme explica o autor, 
"o objetivo principal é fornecer aos leito¬ 
res dicas e caminhos para que estes pos¬ 
sam adaptar os programas aos seus pró¬ 
prios gostos e preferências”. Os dois livros 
lidam basicamente com os caracteres grá¬ 
ficos do micro desta linha de computado¬ 
res pessoais e se destinam, a aplicações 
voltadas ao lazer.A. L. A. 



BASIC no TK 90X 


O mais recente lançamento da Edito¬ 
ra Nobel fala sobre o novo micropessoal 
da Microdigital. 

Em seu estilo próprio, Victor Mirshaw- 
ka aborda os principais recursos do 90X 
com linguagem acessível, didaticamen¬ 
te, de forma a conduzir o leitor nos se¬ 
gredos do novo micro. 

De início, o autor apresenta as palavras 
chaves, indica como imprimir as palavras 
na tela, como editar e corrigir erros, for¬ 
mando quase que um "be abá" do TK 90X. 

BASIC no TK 90X é uma cartilha de 
como usar e conhecer o irmão mais no- 


BASIC 

/ NO 

TK90X 



Victor Mirshawha 


nobel 


Victor Mirshawka 
Nobel 


vo dos TKs. Utilizando-se de recursos 
ilustrativos, Mirshawka vai ensinando ao 
novo usuário, passando pela programa¬ 
ção, as STRINGs e indicando a movimen¬ 
tação de "coisas" na tela da TV. Mostra, 
mais adiante, como desenhar, através do 
TK. Tudo isto serve enfim, para orientar 
o leitor como utilizar e incrementar, ao 
máximo, a alta-resolução no TK 90X. 

Este é um lançamento editorial que se¬ 
gue a tendência do mercado: inovações 
que orientam os usuários dos micros que 
são novidades. Neste caso, o fator ino¬ 
vador é o lançamento do nacional com¬ 
patível com o micro ZY-Spectrum. A.L.A. 
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0 Universo Cartesiano 

Álvaro A.L. Domingues 


A seção didática , desde a publicação de seu primeiro artigo 
(edição n.° 11) até agora , tem se dedicado em oferecer 
subsídios a professores de I e II graus que se utilizam dos 
microcomputadores como apoio didático, nas suas aulas. 


A partir deste número, dinamizaremos esta seção, tornando-a 
um suporte tanto didático como de programação. Para isso, apre¬ 
sentaremos os textos numa linguagem bem acessível, com gran¬ 
de utilidade também aos alunos, tanto como recurso em sala de 
aula, como fonte de pesquisa. 

Os programas serão explicados detalhadamente, o que permi¬ 
tirá ao professor melhorá-lo e adaptá-lo às suas necessidades. 
Outra vantagem oferecida na nova roupagem é que todos os pro¬ 
gramas publicados rodam perfeitamente nos equipamentos TK 85, 
TK 90X, TK 2000 e TK 2000 II ou Apple. 

Aos Estudantes 

Se você está cursando o segundo grau, certamente deve es¬ 
tar enfrentando alguns problemas com textos didáticos maçan¬ 
tes, onde a preocupação com o rigor das informações mata (des¬ 
necessariamente) qualquer tentativa de amenizar a apresenta¬ 
ção de conceitos novos. Isso é mais agudo nas Ciências Exatas, 
sobretudo na Matemática, que sempre fòi um 'Terror'' para a 
maioria dos estudantes. 

Escolhemos, para esta edição, um assunto que normalmente 
causa problemas, não tanto por sua dificuldade, mas por ser a 
base dos conhecimentos que serão adquiridos mais tarde. Trata- 
se da inicialização à Geometria Analítica, particularmente os con¬ 
ceitos de par-ordenado, produto cartesiano, retas e distância entre 
pontos. 

Par Ordenado 

Abriu uma nova danceteria na cidade e o que a difere das já 
existentes é o critério adotado na escolha dos pares de dançari¬ 
nos. Cada rapaz ou moça, ao entrar, recebe um número diferen¬ 
te, juntamente com uma ficha onde são registrados seus dados 
pessoais. Esses dados são repassados a um microcomputador 
que posteriormente irá reunir os pares. Isso não parece muito 
romântico, mas poupa algumas horas de papo furado. 

Para esclarecer melhor, suponhamos que um rapaz recebeu o 
número 3 e o computador selecionou para ele a garota com o 
número 2. Como os casais foram agrupados pelo microcompu¬ 
tador, devemos observar que o par (3,2) é diferente do par (2,3), 
pois a primeira combinação refere-se ao rapaz em questão e sua 
garota, enquanto que o segundo par é o freguês que entrou an¬ 
tes dele e a garota que chegou depois da referida senhorita. Se 
tivéssemos o par (3,3), que por coincidência receberam o mes¬ 
mo número, teríamos um par.par ordenado. 

Para achar os pares, o computador precisa, em primeiro lugar, 
descobrir o número possível de casais. Suponhamos que nesta 
noite aparecerão dez rapazes (números de 0 a 9) e 12 moças 
(números de 0 a 11). Para acompanharmos melhor, vamos de¬ 
signar por (R) os rapazes e por (M) as moças. Assim, teremos 
os pares (RO,MO); (RO,Ml); e assim por diante até (R0,M11). Te¬ 


remos também: (RI,MO); (RI,Ml); etc., até terminarem as com¬ 
binações. Ao todo são 120 pares possíveis. Isto é um Produto Car¬ 
tesiano do conjunto R (rapazes) pelo conjunto M (moças). 

Entretanto, só é possível combinar um rapaz com apenas uma 
moça, conforme os critérios da casa, formando assim, apenas 
dez pares. Conseqüentemente duas moças ficarão sobrando, 
aguardando uma nova oportunidade. 

Devemos observar que os cadastros dos fregueses devem ser 
combinados. 

As informações contidas nas fichas, mais o critério usado pe¬ 
lo computador para reunir os pares formam uma relação do con¬ 
junto R com o conjunto M. Mas não devemos nos esquecer que 
para cada rapaz corresponde uma única moça. Assim, temos uma 
função. 

O gráfico de uma função 

Nesta danceteria hipotética existem mesas que acomodam até 
duas pessoas e a disposição das mesmas no salão central está 
demonstrada na figura 1. A partir desta formação construímos 
um Plano Cartesiano da danceteria. Para um casal localizar sua 
mesa deve observar o ponto de cruzamento da reta perpendicu¬ 
lar ao eixo x (partindo do número do rapaz) com a reta perpendi¬ 
cular ao eixo y (partindo do número da moça). 


Casais x Mesas 
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Convencionou-se chamar de eixo das abscissas o eixo x, sen¬ 
do esta coordenada a abscissa. Da mesma forma, o eixo y é cha¬ 
mado de eixo das ordenadas e a coordenada y de um ponto é 
conhecido como ordenada, no plano cartesiano. 

A noção de distância 


Suponhamos agora que exista um metro entre cada um dos 
pontos do eixo x e do eixo y. Assim, conforme exemplo apre¬ 
sentado no início, a moça 2 deve andar até cruzar a reta perpen¬ 
dicular ao ponto 3 do eixo, o que resulta num total de três me¬ 
tros, para chegar à mesa (3,2). Da mesma forma, o rapaz 3 deve 
andar dois metros para alcançar a mesma mesa. 

Partindo deste exemplo, podemos observar um importante con¬ 
ceito: a distância de um ponto ao eixo x é igual ao módulo de 
sua ordenada , ou seja, o módulo y Da mesma forma, a distân¬ 
cia de um ponto ao eixo y é igual ao módulo de x. 

Por que módulo? Observe que conceitualmente nâo definimos 
a distância como tendo um sinal, mas certamente teremos tam¬ 
bém valores negativos para y e x. Isto porque, ao definirmos os 
eixos cartesianos (figura 2), traçamos um sentido para valores 
crescentes de x e y. Obviamente, no caso da nossa danceteria, 
não teremos valores negativos, pois é impossível entrar -1 moça 
em um baile. Entretanto, existe uma série de fenômenos onde 
podem ocorrer valores negativos ou positivos em x ou y. 


Eixos Cartesianos 


EIXO Y 


22 QUADRANTE 


32 QUADRANTE 


|2 QUADRANTE 


4? QUADRANTE 


FIG. 2 


Jornadas nas Estrelas 

Parece que o computador acertou com o par (3,2). Então va¬ 
mos deixá-lo em paz, curtindo o resto da noite, e nos transferir 
para outro ambiente: o interior de uma nave espacial. 

Para evitar complicações, vamos trabalhar num espaço bi¬ 
direcional, ao invés de tri-dimensional. Embora isso não ocorra 


na realidade, boa parte dos conceitos aqui apresentados podem 
ser ampliados para três ou n dimensões. Você verá isso, mais 
tarde, se optar pela área de Exatas no curso universitário. 

Vamos prestar muita atenção nos conceitos aqui mostrados. 
Eles servirão de base para o jogo "Jornadas nas Estrelas" que 
apresentamos nesta seção. 

Neste jogo dispomos de apenas três informações, fornecidas 
pelo computador: a posição de sua nave em relação ao eixo x, 
em relação ao eixo y e sua distância em relação ao inimigo. Ca¬ 
be a nós localizarmos o inimigo, nos colocar numa posição con¬ 
veniente e destruí- lo. 

Já vimos anteriormente o que é distância de um ponto a um 
eixo. Agora vamos definir o que é "distância" entre dois pontos, 
num espaço bidimensional. Para exemplificar, vamos voltar à nos¬ 
sa nave. Se o inimigo estiver sobre um dos eixos e sua nave so¬ 
bre a origem, tudo bem, pois saberemos quantos quilômetros 
deveremos percorrer para destruí-lo. Mas vamos supor que es¬ 
tamos longe da origem, no par (10,30) por exemplo, representa¬ 
do na figura 3, pela letra N (nave). Nosso inimigo pode estar, por 
exemplo, nas coordenadas (80,100), representado pela letra A 
(alienígenas) e o caminho mais curto para alcançá-lo é o seg¬ 
mento de reta NA. Conseqüentemente, a medida deste segmento 
será a distância entre A e N. 



Agora resta saber como encontrar esta medida sem lançarmos 
mão de um papel quadriculado e uma régua. Para isso, temos 
que pedir ajuda a um velhíssimo conhecido grego, chamado Pi- 
tágoras. Lembra-se dele? Aquele do triângulo-retângulo, "a so¬ 
ma dos catetos é igual ao quadrado da hipotenusa". 

Mas aonde está o triângulo-retângulo? 

Voltando à figura 3, observe que podemos traçar, pelo ponto 
N, uma reta paralela ao eixo x e pelo ponto A uma reta paralela 
ao eixo y, obtendo como resultado o ponto I (intermediário), de 
coordenadas (80,10). Repare que Xj =x a e que yj = y n 
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Temos então formado o triângulo ANI, retângulo em I. A hipote¬ 
nusa será a distância entre A e N. Precisamos agora calcular a 
medida dos catetos. Se nos lembrarmos da distância de um ponto 
a um eixo, não será difícil calcular (veja figura 4). A distância do 
ponto A ao eixo x é igual ao módulo de y a . Por outro lado, a 
distância do ponto I ao eixo x é igual ao módulo yj 


EIXO Y 


A Soma dos 
Catetos 


A 


á 

DISTÂNCIA DE 

A a 1 

N | 

- i 

A 

>- 

1 

DISTÂNCIA 

DE A 

AO EIXO X 

1 

9 

DISTÂNCIA DE 

DE 1 AO 

EIXO X 

\ 

9 



DISTÂNCIA DE Ao I = Y fl - Y ; 

FIG.4 


Assim temos: 

* Dist (Al)= ly a - yj 1= 1100-101=90 


Da mesma forma, a distância de N a I vale: 

* Dist (Nl)= lx n -X| I = 110-801 = 1-701 =70 

Pronto. Já conseguimos obter os catetos. Falta agora a hipo¬ 
tenusa, que vamos calcular usando a teoria de Pitágoras: 

90 2 + 70 2 = H 2 


sendo H a distância entre N e A. 

H 2 = 8100 + 13000 
H = V13000 

H = dist (AN) = 114,0 1754 

Generalizando:_ 

* dist (AN) = Vdya-Yil ) 2 +dx n -X| I) 2 
‘ (I =/-MÓDULO) 


Como: 

dy a -Yi D 2 =(y a ~Yí ) 2 

(lx n -Xj I) 2 =(X n -Xj ) 2 


sendo x, = x a e y, = y n 


Então: _ 

dist (AN) = V(x n -x a ) 2 +(y a -yj ) 2 
Esta fórmula será usada no nosso jogo para o computador cal¬ 
cular a distância entre nossa nave e nosso inimigo. Ela ativa quais¬ 


quer pares de pontos, independente do quadrante em que este¬ 
jam localizados. 


Pausa para descanso, você merece 


Bem, agora que você já descansou, podemos partir para o es¬ 
paço, escolhendo uma trajetória: a reta. 

A equação da reta 

Observe a figura 5, onde uma reta é representada num plano 
cartesiano. Note que ela é uma função de y em x, ou seja, para 
cada valor de x, corresponde um único valor de y. Em geral, uma 
função representada num gráfico cartesiano pode ser represen¬ 
tada por uma equação, onde o primeiro membro é representado 
por y e o segundo membro por uma expressão algébrica, com 
x como variável. Por exemplo: 
y=3x+2 


Uma reta num 
Plano Cartesiano 
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Desta forma, vamos chamar a variável x de variável indepen- Pela Geometria Euclidiana (lembra-se?), o ângulo do vértice B 
dente e y de variável dependente, isto porque podemos variar é igual ao ângulo a. Agora, pela Trigonometria, definimos tangen- 
o valor de x e calcular o valor correspondente de y. Tomaremos te do ângulo a como: 
a equação do exemplo anterior para darmos valores para x e cal¬ 
cular y (veja tabela 1). 

cateto oposto _ medida de AC 

tg a = - - 

cateto adjacente medida de BC 


Tabela 1 

X 

y 

X 

y 

-5 

-13 

1 

5 

-4 

-10 

2 

8 

-3 

-7 

3 

11 

-2 

-4 

4 

14 

-1 

-1 

5 

17 

0 

2 

6 

20 


A medida de AC e de BC nós já sabemos calcular: 
AC=y a -y c = 8-5 = 3 

BC = x c -x b = 2-1 = 1 
3 

tgc*= y = 3 = a 


Parte destes valores estão localizados no gráfico da figura 5. 
Como você pode notar, eles pertencem a reta nela apresentada. 
Assim, uma reta pode ser representada por uma função do tipo: 


y = ax + b 


O valor a é chamado de coeficiente angular. Por que? Obser¬ 
ve novamente a figura 5 e você verá o ângulo a. Este é o ângulo 
que a reta faz com o eixo x e o valor de a é a tangente deste 
ângulo. 


O valor bé chamado de coeficiente linear. Observe novamen¬ 
te a reta da figura 5 e veja que ela cruza com o eixo y no ponto 
de coordenadas (0,2). A distância deste ponto ao eixo x corres¬ 
ponde ao valor de b, que coincide com a ordenada (valor de y) 
deste ponto. 


Agora o que vai nos interessar é como calcular estes coefi- 
cientes.Numa das fases do jogo é pedido ao participante que es¬ 
tabeleça uma trajetória, fornecendo o ponto de destino. O com¬ 
putador estabelecerá uma reta, ligando o ponto onde o jogador 
se encontra ao ponto referido. Assim sendo, devemos estabele¬ 
cer a equação de uma reta que une dois pontos. 


Relembrando a Trigonometria 


Nosso velho amigo Pitágoras vai nos ajudar novamente. Des¬ 
ta vez, porém, também devemos pedir auxílio à Trigonometria. 
Suponhamos que foram escolhidos os pontos A e B da figura 
5, sendo A com coordenadas (2,8) e B com coordenadas (1,5). 
Se objtivermos o ponto C, como já fizemos anteriormente, ele terá 
coordenadas (2,5). 


Não usamos a função módulo neste caso, visto que temos que 
saber qual o sinal de a, que varia de acordo com os quadrantes 
onde a reta se encontra (observe a figura 6). 


Quadrantes 
das Retas 




\ 


/ 

/ * 


\ 


J 

Q 

II 

& 

r 


a = o 








FIG. 6 


Generalizando, a pode ser calculado da seguinte forma: 

= V2 - Vi 
x 2 - Xt 
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Sendo: 

(xtYt) e (x 2 _ y 2 ) pontos pertencentes à reta, com coeficiente 
angular a. 

O valor de b pode ser calculado, montando-se um sistema de 
equações a partir do valor conhecido de a e dos valores das coor¬ 
denadas dos pontos. Assim podemos escrever: 
b=y-ax 
b = y 2 -ax 2 
b=Yi -ax, 

a = V2-V1 

X 2 - X-| 

Portanto: 

b = -y 2 xi +yix 2 

x 2 - X! 

Faça exercícios, com o nosso exemplo e veja a coerência da 
fórmula .Existem outras formas de apresentar uma equação de 
reta. Uma delas aparece no programa que desenvolvemos para 
ensinar estes conceitos. Portanto, muita atenção nas mensagens 
que o computador mostrará na tela quando você for jogar. 

Programa 

O programa que apresentamos é um emocionante jogo que 
reforçará e ampliará os conceitos aqui aprendidos. Ele foi desen¬ 
volvido para o TK 90X, mas, como não usamos a maioria dos 
seus recursos gráficos especiais, podemos traduzí-lo para outros 
micros. 

Agora prepare-se para embarcar em nossa nave espacial e per¬ 
seguir o inimigo alienígena! 

Nós estamos patrulhando uma determinada zona do espaço, 
estacionados sobre o ponto (0,0), que será a referência para me¬ 
didas futuras. Nosso computador nos informa da presença de 
um inimigo nas proximidades e fornece a sua distância, bem co¬ 
mo sua posição atual. A seguir, ele nos pergunta se desejamos 
uma trajetória. Se a resposta for positiva, ele nos solicita as coor¬ 
denadas do ponto de destino. Imediatamente ele mostra nossa 
posição atualizada, calcula a nova distância e ilustra a equação 
da reta empregada na trajetória que une nossa última posição 
com a nova. Ele apresenta a fórmula utilizada para o cálculo, com 
os valores literais e com os valores usados. Fornece também a 
fórmula com os coeficientes angular e linear, retornando a se¬ 
guir à seleção para escolha ou não de trajetória. 

Se a resposta for negativa o programa se movimenta por meio 
das setas do cursor (5,6,7,8). Nós teremos tempo limitado para 
as manobras, pois o computador retorna, a seguir, para a esco¬ 
lha da trajetória. A tecla 0 dispara um raio laser, atingindo o ini¬ 
migo, se a distância for menor que 10 km. Ao atingir este limite, 
tanto nós como nosso inimigo poderá atirar com chances iguais 
(50% de probabilidade). Nesta situação, o inimigo move-se alea¬ 
tóriamente, sendo sua distância atualizada constantemente. Quan¬ 
do a distância for superior a 10 km, o inimigo fica imóvel. Por 
outro lado, nossos tiros não mais o alcançarão. A tecla 9, ou o 
término do nosso tempo de movimentação, nos fará retornar à 
escolha da trajetória. Mas atenção! Na escolha da trajetória, se 
a distância entre nossa nave e o inimigo for menor que 20 km, 
nós seremos obrigados a lançar um míssil, fornecendo, para is¬ 
so, as coordenadas do inimigo. Se acertarmos, marcamos mui¬ 
tos pontos. Se falharmos, perdemos 1 ponto e muita energia. 
Em qualquer situação, o inimigo fugirá rapidamente após o ata¬ 
que. Novamente o computador atualizará a distância entre as 
naves. 


O jogo termina quando: 

a) Acaba 0 tempo total. 

b) Acaba a energia. 

c) O inimigo for destruído. 

d) Há um choque com o inimigo. 

Na tabela II você verá todos os limites e o que cada evento 
significa. 


Tabela II 

Tempo total: 1000 unidades 

Tempo de movimentação(setas): 50 

Perda de tempo para cada movimento: 1 

Perda de tempo para cada trajetória escolhida: 10 

Perda de tempo por cada míssil usado: 50 

Energia total: 100 unidades 

Perda de energia por laser utilizado: 1 

Perda de energia por avaria provocada pelo inimigo: 1 

Perda de energia por míssil utilizado: 10 

Pontos iniciais: 0 

Pontos ganhos por atingir 0 inimigo (laser): 1 

Pontos ganhos por atingir 0 inimigo (míssil): 10 

Pontos perdidos por errar a pontaria (míssil): 1 

Pontos necessários para derrotar-se 0 inimigo: 40 


OBS: 

Se a distância for menor que 1, você chocar-se-á com 
o inimigo. 

O valor das coordenadas do inimigo é sempre inteiro. 

Na fase de escolha de trajetória : 

Se a distância for menor que 20, você deverá 
lançar míssil, fornecendo as coordenadas do inimigo. 

Este estará se movimentando. 

Na fase de movimentação : 

Se a distância for menor que 10, você poderá usar 
seu laser. 

O inimigo estará em movimento e poderá atirar em você. 


10 REM secao dida ti ca 
20 REM localizacao iniciai 
25 CL5 
30 RRND 

40 LET Xi=0: LET yi=0 
50* LET X=Xi: LET y = y i 
55 LET ti f 0 =100: LET pOn tO=0 
60 RRINT RT 0 , 0 ; :: £ rs e r 9 i a = M ; 1 1 f 
0 
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78 PR INT PT 1, 0 " p o n t o s = "; P o n t 
o 

75 PR INT PT 8:15; " t £ Tf: p 0 = 1888 " 
se REm ioc a Lizacao do inimigo 
98 LET u> = INT £ 188*RND413 
95 Ir RND >.5 THEN LET W=-MJ 
97 LET £= INT (188*RND+13 
188 IF RND>.5 THEN LET £=-£ 

118 IF (ui*W+£ *£ 3 < 100 THEN GOTU 
38 

188 8 R E M i n í O f ií! 3 C O £ £ 

1818 LET d i £ t =SQR ( (X -UI3 * (X - W 3 + l 

M -S ) + ( M -£ ) ) 

1188 PRINT PT 2,8; “ Su 3 £ CO Ord£n3 

d d S ;./•. — . X I : '4 : 

1288 PR INT " UO C £ £ £ t 3 3 "; d i £ t .1 " 

K m “ ' " d £ £ £ u i n i ia i g o " 

2888 REM fíi O V i IA £ n 13 C 3 O 

2848 FOR t =1888 TO 8 STEP -18 

2845 PRINT PT 8,22;t;" 

2855 INP UT '' V Oí £ d £ £ £ .j 3 £ £ CO Lh£f 

u ia p a r d £ c o o r d £ n a d a £ ? C £ / n 3 " ; a 

4: IF 3 $ ="n" THEN GOSUB 3888 
2188 PRINT PT 14,8; FLPSH 1;"Di 
q i t £ 3 £ C O O r d £ n 3 d 3 £ d O d £ £ t i n O " .1 

FLPSH 8 

2158 FOR p=l TO 488: NEXT p: PRI 
NT PT 14,8;" 

2288 INPUT " V 3 L O f d 3 3 b£ C : £ £ 3 L -1 

88 3 188 3 "; X f : IF X í <-100 OR X f> 

188 THEN GOTO 2288 
2248 INPUT V 3 l O r O r d £ n 3 d 3 ( -188 
3 188 3 ";y f : IF y f <-188 OR yf>188 
THEN GOTO 2248 

2245 Ir £'-i f- ! 4 i 3 =0 OR (X f -X i 3 =8 T 
HEN PPINT PT 17,0; FLPSH l;"££Cü 
lha outros vaioraa"; FLPSH 8: rO 
R p=l TO 288: NEXT P: PRINT PT 1 
7,0;" 

GOTO 2288 

2258 LET 3 = Cyf-yi3 / CX f-Xi3 : LEI 
b=>4 f -3 tX f 

2328 LET X =X f : LET y=a*X+b: LE ! 

Xi=x f: LET yi=y f 
2358 GOSUB 6888 

2488 PRINT PT 9,8;"sua trajetori 
3 £ 3 f £ t a : " ■' “ 

X-Xf X f -X i 

";PT 11,0; OU ER l;" _ = _ 

_ ” " " y -y f y í -y i 

' "; OUER 8 

2458 FOR p=i TO 288: NEXT p 
2588 PRINT PT 9,8;"Sua trajetori 
3 £ 3 reta: " ' " 

“ ■' " x - £ “ ; x f; “ 3 " ; 1 /a ; " 

";PT 11,8; OUER 1;"_ 

_ = OUER 8; - " y- y f .; "3 

2558 FOR P =1 TO 208: NEXT p 
2688 P RINT PT 9,8; ‘ ‘ 5U3 tf 3 j £ tOfi 
3 £ 3 T £ 13 : 

,, , ..y ■ a • *= x+ ( •• ; b ; “ ) 


2788 IF di£ t <=28 THEN GOSUB 8480 
2S48 NEXT t 

2858 PRINT PT 17,0; FLPSH i;"££U 
t £ rii P O 3 C 3 bo u " ; r LPSH 8 
2988 INPUT " d £ £ £.j 3 mais uma part 
ida? £ £/n 3 ";£ $: ir S$ = “S" THEN GU 
TO 18 
2958 STOP 

3088 REM ffl o v i m £ n t a c a o 
3 8 48 PRINT PT 9,8; ‘' U£ £ 5 £ t£ClaS 

C O m £ £ t 3 P 3 r a F» O V i IA £ H t 3 f - £ £. H 

t £ C L 3 9 f £ t O r H 3 3 £ £ C O l h 3 d £ t f 

a j£tor i a" ■' “P t£c La 8 diapara sob 
r £ o i n i TA i g o , s £ a distancia f o r 

COIAP 3 t i V £ l " 

3858 PPUSE 2808 
3188 PRINT PT 9,8;" 

3208 FOR q =8 TO 49 
3258 LET t=t-l 

3388 LET X=X+1 * U INKEY$ = "S"3 -£IN 
KEY$ = "5"3 3 

3488 LET y=y +1* UINKEY$ = "7"3 - £ IN 

KEY$ = "6"3 3 

3458 GOSUB 6088 

3588 IF INKEY$="8” OR distí=10 T 
HEN GOSUB 7088 

3558 IF INKEY4="9" THEN RETURN 
3788 IF INKEY4=”" THEN GOTO 3308 
3888 NEXT q 

3858 IF t <=8 THEN GOTO 2848 
3999 FOR P =1 TO 288: NEXT p: RET 
URN 

6088 LrT d i £ t =SQR £ £x —MJ 3 * £ X -MJ 3 + í 
y — £ 3 * (y — £ 3 3 

6858 PRINT PT 8,22;ti” 

6188 PRINT PT 0.8;tiro;" 

6158 PRINT PT 1,7;PontO; " 

6288 PR INT PT 6,12; d i £ t; " K IA 

6388 PRINT PT 4,2;x;" ";PT 4 

, 18; y;" 

6588 IF INT di£t=0 THEN PRINT PT 
28,8; FLPSH 1;"y o c£ £ £ Ch 0C0U c 
OlA o ininigo"; FLPSH 8: GOTO 298 
8 

6688 PRINT PT 1,7;ponto;" 

6658 IF ponto>=40 THEN PRINT PT 
14,8; rLPSH 1;" uoce des truiu o 
i n i ia i g o " ; FLPSH 8 ; " " : GOTO 

2988 

6999 RETURN 

7888 REM COn fr ontO 

7828 IF tiro=8 THEN PRINT PT 14, 
0; FLPSH 1;"SUP ENERGIP PCPBOU"; 

FLPSH 8: GOTO 2908 
7858 LET h=RND 

7188 IF INKEY 4 = "0" PND di£ t>10 T 
HEN PR INT PT 9 , U3; " fíi u i t O longe": 
FOR P =1 TO 288: NEXT p: LET tiro 
=tiro-l: PRINT PT 9,8;" 
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7200 IF INKEY$ = :: 0 :s PHD d i £ t < =10 
PHD n < = . 5 7HEH PRIHT P7 9, 0; "fit i 
F? q i íii 0 £ 0 3 1 V 0 J " r OH p = 1 T0 200 
MEXT p : LE7 ti f 0 =t i f0 -1 : LEI p 0n 
t0=p 0n t 0 +1: FKlNT P7 9,0;" 

GG3U5 8000 

7300 IF h > , 5 PHD d:St<=15 PHD IN 
KEYS<>"" 7HEH LET ti f0= tif 0 -1: H 
RIM7 P7 14:0; FLPSH l; !! ü IHIMIGO 
NOS P7IMGIU”; FLPSH 0: FOR p =1 
70 200: HEX7 P: PRIt^T P7 14,0; " 

!S : GOSUB 800 

0 

7800 GOSUB 6000 

7999 RE7ÜRH 

8000 REM íii o v i íii e n t a c a o d o i n i rn i g o 

8100 LE7 £=s+IM7 Í10*RMD-10*RND) 

8200 LE7 w=w+IN7 (10*RHD-10*RND) 
8250 GOSUB 5000 

3300 RE7URM 
8400 REM Chute 

3450 PRIH7 P7 14,0; FLP8H 1.; Uü C 
e de ve usa r u m rn 1 s s i l; rLPSH 0 
3500 IHPU7 3 bS C i £ 3 3 dO I Fí I íii 1 9 0 = 

".; xw 

3 s 0 0 IH P ü I :! o r d e n 3 d s d o i n i rn i g o = 
“ ; ms 

8650 PRIH7 P7 14,0;" 

8700 IF U =XU PHD £=M£ 7HEH LE7 p 
o n t o =P 0 Fi 1 0 +10 : PR IH7 P7 14,0; FL 
P8H 1; ! In i m i q 0 s e v e r a rn e n t e a t i n q 
ido"; FLPSH 0 

3750 IF UíOXUi PHD SOME. 7HEN LE7 
ponto=pontO-l: PRIH7 P7 14,0; F 
LPSH 1 ; :: in í ííi i q 0 £s c ap 0 u i L es 0 " ; 
FLPSH 0 

3800 PPUSE 200: PRIH7 P7 14,0;;; 

3860 LE7 £=£+IH7 í 20*RHD-20*RND) 
8370 LE7 w=w+IH7 (20±RHD-20±RND) 
3900 LE7 11 f 0 =tir 0 -10: LE7 t =t-5 
0 

3930 GOSUB 5000 
3999 RE7URH 

9999 SPUE :! d 1 d3 !: G070 9999 ■ 


Para o professor 


Ter um microcomputador como apoio didático ainda não é co¬ 
mum, mas já está fazendo parte da rotina de várias escolas par¬ 
ticulares. Ele vem sendo introduzido por uma política progres¬ 
sista de seus diretores, ou por alguns professores dedicados e 
conhecedores das potencialidades dos equipamentos. 

Entretanto surge, em muitos professores desejosos de utilizar 
o novo instrumento didático, a pergunta: como utilizá-lo? 

Com o tempo aparecerão programas comerciais destinados à 
área educacional. Mas mesmo com um número suficiente de pro¬ 
gramas no mercado, o micro não precisará ficar restrito a eles. 
Afinal, é o professor quem sabe do que seus alunos precisam 
e de que forma podem suprir as necessidades existentes. As¬ 
sim, lançamos neste número um programa destinado ao ensino 
de dois tópicos de matemática: o plano cartesiano e a equação 
da reta, desenvolvidos para o TK 90X. 

Digitando-o, você terá um programa que consideramos muito 
bom. Todavia, ele não é uma versão definitiva, pois pode ser me¬ 
lhorado, ampliado, ou modificado. Além disso, parte de sua es¬ 
trutura pode ser usada em outros programas que você criar, den¬ 
tro de seu ramo de atividades. 


A estrutura do programa 

0 programa foi estruturado de forma a ter um esqueleto prin¬ 
cipal e várias sub-rotinas, que poderão ser chamadas toda vez 
que forem necessárias. Embora o TK 90X seja um computador 
com muitos recursos gráficos, estes não são utilizados neste pro¬ 
grama pelos seguintes motivos: 

a) possibilidade de adaptação para outros micros (mesmo o 
TK-85); 

b) o fato de não se ter um visual da tela, possibilita ao estu¬ 
dante treinar a sua habilidade de se localizar por coordenadas, 
imaginando ou desenhando um mapa; 

c) o professor que conhece programação de computadores po¬ 
de criar as telas de acordo com as suas necessidades; 

d) em outra oportunidade voltaremos a falar do assunto, en¬ 
focando o traçado de gráficos. 

Para entender o desenvolvimento do programa, o dissecare¬ 
mos trecho por trecho, mostrando a tabela das variáveis (tabela 
III) e descrevendo a função de cada rotina e sub-rotina. 


Tabela III 

Variável 

Conteúdo 

xi 

Abscissa inicial da nave 

yi 

Ordenada inicial da nave 

X 

Abscissa atual da nave 

y 

Ordenada atual da nave 

tiro 

Quantidade de energia disponível 

ponto 

Quantidade de pontos 

w 

Abscissa atual da nave inimiga 

s 

Ordenada atual da nave inimiga 

dist. 

Distância entre as duas naves 

t 

Tempo disponível 

xf 

Abscissa do destino da nave 

yf 

Ordenada do destino da nave 

P 

Loops vazios para pausa 

a 

Coeficiente angular da reta da trajetória 

b 

Coeficiente linear da reta da trajetória 

g 

Tempo para movimentação 

xw 

Abscissa de tiro para míssil 

yw 

Ordenada de tiro para míssil 


Trecho ILinhas 10 a 110 

Este trecho inicializa as variáveis principais.As linhas 90 e 97 
escolhem,no intervalo de 0 a 100, as coordenadas do inimigo.As 
linhas 95 e 100 garantem, pelo menos, 50% de probabilidade 
de ocorrer um valor negativo para cada coordenada.A linha 110 
garante que o inimigo esteja suficientemente afastado. 
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Trecho 2Linhas 1000 a 1200 

Fornece as primeiras informações. A linha 1010 calcula a dis¬ 
tância entre os dois pontos.Observe que, ao invés de se usar a 
potenciação, usou-se a multiplicação de parcelas iguais.lsto por¬ 
que o computador não aceita a potenciação de números negati¬ 
vos. Outra solução seria a verificação do sinal e multiplicá-lo por 
— 1, caso o valor seja negativo. 


Trecho 3: Linhas de 2000 a 2950 

Refere-se a rotina principal. Ela permite estabelecer uma tra¬ 
jetória ou chamar a rotina de movimentação pelo cursor. Chama 
também a sub-rotina de tiro por míssil, caso a distância seja me¬ 
nor que 20. 

Linha 2040: controla o tempo real; 

Linha 2050: permite optar entre o cálculo de uma trajetória 
e o uso de movimento pelo cursor; 

Linhas de 2100 a 2245: escolhe a trajetória. A linha 2045 im¬ 
pede a divisão por zero; 

Linhas 2250 a 2600: calcula os parâmetros da trajetória e 
exibe as equações da reta; 

Linha 2700: caso a distância seja menor que 20, ela chama 
a sub-rotina de tiro com míssil; 

Linhas 2850 a 2950: finalização do programa. 

Sub-rotina 

3000: movimentação pelo cursor (teclas 5,6,7,8); 6000: cálcu¬ 
lo e exibição de resultados; 7000: luta entre as duas naves; 8000: 
movimentação do inimigo; 8400: tiro com míssil; 9999: grava¬ 
ção (usar um comando direto do tipo 9999) 

Particularidades do TK90X 

Talvez você não tenha o TK 90X, mas tenha à sua disposição 
outro computador, por exemplo, um TK-85 ou TK-2000. De uma 
maneira geral, a maioria dos problemas que podem ser resolvi¬ 
dos por um computador podem ser resolvidos por outro, desde 
que não envolva limitação de memória, recursos gráficos, ou tem¬ 
po de processamento. 

Alterações para o TK-85 

O programa não é muito extenso, podendo perfeitamente ser 
adaptado para um TK-85 de 16k. Os recursos gráficos utiliza¬ 
dos são poucos, uma vez que não se usou cores, alta resolução, 
caracteres gráficos especiais, etc. 

Uma das diferenças entre o TK 90X e o TK-85 é que o primei¬ 
ro permite o uso de mais de uma instrução por linha, separados 
por dois pontos. Na maioria dos casos, basta separar estas ins¬ 
truções em duas linhas. Entretanto, existe uma exceção: o caso 
em que ocorre uma comparação. 

Por exemplo: 

10 IF X =0 THEN LET Y=5:GOTO 200 

20 STOP 

Nestas linhas, quando X=0, Y deve assumir o valor 5 e o pro¬ 
grama ser desviado para a linha 200. Se isto não for verdade, 
o programa seguirá para a próxima linha, que contém a instru¬ 
ção STOP, se for substituída por: 

10 IF X=0 THEN LET Y=5 

15 GOTO 200 

20 STOP 


Se x for zero, o programa funciona do mesmo jeito. Porém, se 
seu valor for outro, a linha 15 será executada, fazendo uma ope¬ 
ração diferente (executando um desvio, ao invés de parar). Para 
cada caso existe uma solução que melhor se adapta. Porém, um 
método que funciona sempre é repetir a comparação tantas ve¬ 
zes quanto for necessário, mais precisamente, o número de dois 
pontos que existir na linha. 

Outra diferença é a que consta na linha 2400 do nosso pro¬ 
grama. Se você reparar bem, aparece muitas vezes, entre dois 
pares de aspas ("), uma aspa simples ('), a qual faz o computa¬ 
dor pular uma linha, como se fosse um PRINT isolado. Você tam¬ 
bém poderá usar um PRINT isolado em outra linha, mas, por ou¬ 
tro lado, isto significa aumentar ainda mais o número de linhas. 
Outro recurso é um AT linha, coluna, indicando como linha um 
valor além da última utilizada, ou ainda 32 espaços. 

Nesta mesma linha aparece a instrução OVER. Ela permite que 
se sobreponha duas mensagens, sem que a segunda apague a 
primeira. Neste programa foi usado este recurso para se fazer 
o traço que separa numerador do denominador. Você pode usar 
também o caractere gráfico especial da tecla 7 e indicar o local 
para o PRINT AT, uma linha abaixo. 

Com um pouco de paciência e raciocínio você conseguirá che¬ 
gar a um bom resultado. Porém, se você achar muito difícil a adap¬ 
tação, use as linhas 2400 a 2550. 

Outra instrução que aparece várias vezes é a FLASH, que faz 
piscar a mensagem exibida na tela. Embora isto possa ser simu¬ 
lado no TK-85, não vemos esta necessidade, uma vez que você 
pode simplesmente escrever esta mensagem em caracteres in¬ 
versos. 

Uma outra pequena limitação é a presença das letras minús¬ 
culas. Isso não é problema, visto que basta escrever tudo em 
maiúsculas. 

Adaptações para o TK-2000 e Apple 

Tudo o que falamos para o TK-85 vale também para o 2000 
e para o Apple, só que no TK-2000 pode-se usar mais de uma 
instrução por linha. O TK 90X (assim como TK-85) possui uma 
tela dividida em 32 colunas (numeradas de 0 a 31) e 24 linhas 
(numeradas de 0 a 23), enquanto que o Apple e ó TK-2000 têm 
a tela de texto dividida em 40 colunas (numeradas de 0 a 39) 
e 24 linhas (numeradas de 0 a 23). Isso fará com que algumas 
mensagens tenham que ser reescritas. Além disso, para se loca¬ 
lizar uma mensagem na tela, ao invés de se usar PRINT AT linha, 
coluna, usa-se HTAB linha, VTAB coluna. Mas não se preocupe, 
pois isso não trará maiores problemas na tradução. 

Do mesmo modo que o TK-85, o TK-2000 não possui FLASH 
e OVER, valendo, neste caso, os mesmos conselhos anteriores. 
Para obter o traço do denominador, use o caractere gráfico da 
tecla 1. Ele pode ser obtido digitando-se, após as aspas (") 
CONTROL + B, seguido por SHIFT + CONTROL + 1 e, no final 
da mensagem, CONTROL + B, fechando-se as aspas. Isto só va¬ 
le para o TK-2000 e não para o Apple. 

Como o TK-2000 e o Apple possuem recursos gráficos exce¬ 
lentes, comparáveis ao do TK 90X, você pode usá-los para in¬ 
crementar seu programa. 

Conclusão 

Não deixe a peteca cair. Continue o trabalho iniciado por nós, 
ampliando este programa, adaptando-o às suas necessidades. 

O trabalho não pára aí. Bons programas educacionais são ra¬ 
ros e o melhor programador desta área terá que ser alguém de¬ 
la: professores ou alunos. 
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Curso de 
ASSEMBLY 6502 
Aula VI 


Gustavo Egidio de Almeida 


No número 17 da MICROHOBBY come¬ 
çamos a percorrer uma longa estrada on¬ 
de iniciamos nosso Curso de Assembly 
6502 para computadores compatíveis 
com a linguagem 'Apple". 

Nesta edição chegamos exatamente ao 
meio desse curso, do qual espero que vo¬ 
cês, leitores, tenham adquirido certa ex¬ 
periência e intimidade com esta linguagem 
que parece, mais não é, tão complicada 
assim. 

Com a bagagem vista neste meio ano 
de curso podemos, com certa segurança, 
desenvolver um grande número de progra¬ 
mas nesta linguagem. 

Nesta aula veremos algumas instruções 
a mais como: NOP, CMP, CPX, CPY e pro¬ 
gramas muito interessantes e de grandes 
aplicações. 


NOP - não opera 


TABELA 1 NOP 

Código usado 

Formato 

Bytes Usados 

EA 

NOP 

1 


NOP, ou "No Operation", é uma das mais 
simples instruções do Assembly-6502. Ela 
não faz nada, como se fosse um trilho por 
onde passa um trem, sem sofrer nenhu¬ 
ma alteração em seu trajeto. 

Num programa em Assembly, a instru¬ 


ção NOP pode ser vista isolada ou em gru¬ 
pos. Ela serve na maior parte dos casos, 
para preencher espaços vazios do progra¬ 
ma que será executado. Estes espaços, em 
geral, são para correções ou alterações 
posteriores. A instrução NOP pode ser 
usada também como uma "linha REM", fa¬ 
cilitando a localização de trechos de pro¬ 
grama numa listagem. 

Exemplo: 


0800 - LDA # 50 
. - STA $1000 

- TAX 

. - NOP 

. - NOP 

. - NOP 

- JRS $900 


O exemplo acima funcionará do seguin¬ 
te modo: O acumulador é carregado 
com o valor # 50 e este é armazenado no 
endereço $ 1000. 

O acumulador é transferido para o regis¬ 
tro indexador X. Efetua-se então um salto 
para a sub-rotina de endereço $900. No¬ 
te que não houve absolutamente nada 
quando a execução do programa passou 
por cima das instruções NOP. É comum no 
jargão técnico dizer-se que um programa 
que apresenta muitos NOP's é "mal feito", 


mal estruturado, pois foi "mexido" depois 
de pronto. 

O termo "mexido" foi usado para dizer 
que certos programas, geralmente exten¬ 
sos, apresentam falhas ao serem execu¬ 
tados pela primeira vez. 

Quando isto ocorre, o programador tenta 
corrigir as falhas, movendo uma sub-rotina 
de um endereço para outro, acrescentan¬ 
do outras para fora do programa, e assim 
por diante. Essa "mexida" na listagem pro¬ 
voca, às vezes, brechas nos programas, ou 
seja, espaços vazios nas listagens. 

Se estes espaços vazios fizerem parte 
da execução do programa, deverão ser 
preenchidos com NOP's, que servem co¬ 
mo ponte de ligação entre instruções. 

Instruções de Comparação 
CMP - compara memória com acumulador 

As instruções de comparação que vere¬ 
mos agora, usadas juntamente com as ins¬ 
truções "BRANCH", formam um conjun¬ 
to que tem por função promover desvios 
condicionais num programa em Assembly. 
Por sua vez,a instrução CMP nada mais faz 
do que subtrair o valor do acumulador com 
o conteúdo da memória. Como resultado 
obteremos o valor zero, (caso o acumula¬ 
dor apresente o mesmo valor do conteú¬ 
do da memória) ou um valor qualquer di¬ 
ferente de zero. 
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TABELA II 

Código 

Formato 

Bytes 

Usado 

Usados 

C9 

CMP 

# # OPER 

2 

C5 

CMP 

OPER 

2 

D5 

CMP 

OPER, X 

2 

CD 

CMP 

OPER 

3 

DD 

CMP 

OPER, X 

3 

D9 

CMP 

OPER, Y 

3 

Cl 

CMP 

(OPER, X) 

2 

Dl 

CMP 

(OPER, Y) 

2 


Como você deve ter notado, se colocar¬ 
mos a instrução BRANCH logo em segui¬ 
da à CMP, teremos um desvio condicional. 
Como as instruções ''BRANCH” admitem 
vários tipos de formatações, as instruções 
CMP terão muitas aplicações em progra¬ 
mas. 


Exemplo 1: 


LDA #30 
LDX #50 
STX $70 
CMP #20 

BEQ - 

NOP 

JRS $1000 
LDY # 20 
TYA 


No exemplo acima, o acumulador pos¬ 
sui o valor # 30 e a instrução CMP possui 
o valor #20. Ao efetuarmos a subtração 
(#30 - #20), obteremos como resultado 
o valor #10. 

Como o resultado da operação é diferen¬ 
te de zero, a instrução BEQ não é aciona¬ 
da e a execução do programa prossegue 
pela instrução NOP e assim por diante. 

Exemplo 2: 


LDA #50 
LDX #50 
STX $100 
CMP $100 

BEQ - 

NOP 

JSR $100 
LDY #20 
LDA #30 


No exemplo visto, o acumulador e o con¬ 
teúdo de memória contêm o valor # 50, lo¬ 
go, o resultado da operação é zero. Desta 
forma, a instrução BEQ é acionada,o que 
realiza um salto, prosseguindo a execução 
do programa na instrução LDY #20 e as¬ 
sim por diante. 


CMP #OPER - Endereçamento 
Imediato 

Nesta versão é efetuada uma compara¬ 
ção entre o acumulador e o dado indica¬ 
do na própria instrução (veja exemplo 1). 


CMP OPER - Endereçamento Direto 
(página Zero) 

O acumulador é comparado com o con¬ 
teúdo do endereço, explícito na instrução 
(veja exemplo 2). 


CMP OPER, X - Endereçamento 
Indexado (página Zero) 


Exemplo: 


LDX #05 
LDA #10 
LDY #20 
STY $50 
CMP $4B, X 
BPL 

LDX #20 
STX $50 
NOP 

JSR $2000 


Neste exemplo está sendo comparado 
o conteúdo do endereço $ 50, ou seja, 
# 20, com o valor do acumulador # 10. Co¬ 
mo o resultado é negativo, a instrução 
"BRANCH” em questão não realiza salto. 


CMP OPER - Endereçamento Direto 
(Absoluto) 

Exemplo: 


LDA #50 
LDX #50 
STX $1000 

CMP $1000 (OPERANDO COM 2 
BYTES) 

BEQ 

NOP 

JSR $2000 
JSR $3000 
LDA #30 
STA $500 


CMP OPERT Absoluto, X ou CMP 
OPER Absoluto, Y: 


Endereçamento indexado por X ou Y 
absoluto). 

Exemplo: 


LDX #05 
LDA #10 
LDY #20 
STY $1000 
CMP $OFFB, X 
BPL 

LDX #20 
STX $50 
NOP 

JSR $2000 
JSR $3000 


CMP (OPER, X) - Endereçamento 
Indireto (Indexado por X) 


OBS:- Ver exemplos de instruções que 
apresentam o mesmo modo de indexação, 
como LDA (OPER, X) (Revista Nr.19L 


CMP (OPER), Y - Endereçamento 
Indireto (Indexado por Y) 


Idem para LDA (OPER), Y. 

Esse programa é um exemplo de muitas 
aplicações práticas. Ele imprime na tela, 
quaisquer caracteres alfanuméricos, bas¬ 
tando para isso colocar seus devidos có¬ 
digos hexadecimais (identificados na tabe¬ 
la a seguir), na listagem do programa. 


Programa 1 


0768 - 20 58FC 

JSR $ FC58 

076B - A2 00 

LDX #$00 

076D - BD 00 08 

LDA $ 0800, X 

0770 - C9 00 

CMP #500 

0772 - FD 07 

BEQ $ 077B 

0774 - 20 ED FD 

JSR $ FDED 

0777 - E8 

INX 

0778 - 4C 6D 07 

JMP $ 076D 

077B - 60 

RTS 
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TABELA DE CARACTERES ALFANUMÉRICOS (ASC II) 


$ 

21 - 

! 

$ 

2D- 

- 

$ 

39 - 

9 

$ 

45 - 

E 

$ 

51 - 

Q 

$ 

22 - 


$ 

2E - 


$ 

3A- 


$ 

46 - 

F 

$ 

52 - 

R 

$ 

23 - 

# 

$ 

2F - 

/ 

$ 

3B - 

! 

$ 

47 - 

G 

$ 

53 - 

S 

$ 

24 - 

$ 

$ 

30 - 

0 

$ 

3C - 

< 

$ 

48 - 

H 

$ 

54 - 

T 

$ 

25 - 

% 

$ 

31 - 

1 

$ 

3D- 

= 

$ 

49 - 

1 

$ 

55 - 

U 

$ 

26 - 

& 

$ 

32 - 

2 

$ 

3E - 

> 

$ 

4A- 

J 

$ 

56 - 

V 

$ 

27 - 

• 

$ 

33 - 

3 

$ 

3F - 

? 

$ 

4B - 

K 

$ 

57 - 

w 

$ 

28 - 

( 

$ 

34 - 

4 

$ 

40 - 

* * 

$ 

4C - 

L 

$ 

58 - 

X 

$ 

29 - 

) 

$ 

35 - 

5 

$ 

41 - 

A 

$ 

4D- 

M 

$ 

59 - 

Y 

$ 

2A- 

* 

$ 

36 - 

6 

$ 

42 - 

B 

$ 

4E - 

N 

$ 

5A- 

z 

$ 

2B - 

+ 

$ 

37 - 

7 

$ 

43 - 

C 

$ 

4F - 

0 

$ 

5B - 

[ 

$ 

2C - 


$ 

38 - 

8 

$ 

44 - 

D 

$ 

50 - 

P 

$ 

5C - 

\ 













$ 

5D- 

] 













$ 

5E - 

A 













$ 

5F - 

- 


Código 

Usado 

Formato 

Bytes 

Usados 

68 

PLA 

1 


Essa instrução retorna o valor contido 
na STACK POINTER para o acumulador e 
realiza o inverso da PHA. 


Veremos agora um programa muito in¬ 
teressante que emite notas musicais no 
auto-falante de seu televisor. 


As notas musicais podem ser codifica¬ 
das através da tabela abaixo: 


DÓ 

RÉ 

Ml 

FA 

SOL 

LÁ 

SI 

DÓ 

6B 

60 

85 

7F 

79 

74 

6F 

64 


Este programa imprime, na tela de seu 
monitor, frases que podem ser escritas 
com quaisquer caracteres alfanuméricos 
apresentados na tabela acima. O número 
de caracteres por linha, depende logica¬ 
mente do número de colunas do vídeo, 
sendo que o limite máximo é de quarenta 
colunas. 


Para pular linhas, use o código 80 em 
hexadecimal. Os códigos em hexadecimal, 
obtidos na tabela acima, devem ser inse¬ 
ridos a partir do endereço $800. 


PHA - Empurra o valor do acumulador 
para o STACK. 


BYTES 

USADOS 

FORMATO 

CÓDIGO 

USADO 

1 

PHA 

48 


Essa instrução serve para deslocar o va¬ 
lor do acumulador (valor esse que, nesse 
caso, não pode ser perdido) para o STACK 
POINTER onde ficará armazenado. Assim, 
teremos o acumulador livre para efetuar¬ 
mos qualquer operação aritmética. 

Ao final das operações poderemos re¬ 
cuperar o valor inicial do acumulador atra¬ 
vés da instrução PLD. 


Exemplo: 



Vamos supor que no exemplo acima o 
valor inicial do acumulador é um número 
que não pode ser apagado e que precisa 
permanecer, em determinados momentos, 
no acumulador para alguma aplicação 
imediata. 


Porém, como neste programa são ne¬ 
cessárias operações aritméticas que en¬ 
volvam o uso do acumulador, este valor 
tem que ser armazenado em algum lugar 
para não se perder.Desta forma podemos 
usar a instrução PHA, onde conseguire¬ 
mos salvar este valor. Assim pode-se efe¬ 
tuar qualquer operação, pois o valor já está 
guardado. 


Se no final das operações desejamos ter 
de volta o antigo valor do acumulador, 
basta utilizarmos a instrução PLA. 


PLA - Retorna o valor do acumulador do 
STACK. 


Programa 2 


0768 - 20 58 FC 

JSR $ FC 58 

076B - A9 C8 

LDA # $C8 

076D - 85 01 

STA $ 01 

076F - A2 00 

LDX #$00 

0771 - BD 96 07 

LDA $ 796, X 

0774 - 85 00 

STA $ 00 

0776 - E8 

INX 

0777 - 8A 

TXA 

0778 - 48 

PHA 

0779 - EO 09 

CPX #$09 

077B - FO 17 

BEQ $ 794 

077D - AD 30 CO 

LDA $ CO 30 

0780 - 88 

DEY 

0781 - DO 04 

BNE $ 0787 

0783 - C6 01 

DEC $ 01 

0785 - FO 08 

BEQ $ 78F 

0787 - CA 

DEX 

0788 - DO F6 

BNE $ 07 80 

078A - A6 00 

LDX $ 00 

078C - 4C 70 07 

JMP $ 077D 

078F - 68 

PLA 

0790 - AA 

TAX 

0791 - 4C 71 07 

JMP $ 0771 

0794 - 6B 

• 

0795 - 60 

• (Códigos 
Hexadecimais 

0796 - 85 7F 

• das notas 
musicais) 

0798 - 79 74 6F 

• 

079B - 6B 

• 

079C - 67 

• 

079D - 64 

• 


(De 079B até 079D, colocar os 
códigos hexadecimais das 
notas musicais) 
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Leve logo um microcomputador 
TK 85, porque ele é realmente fácil de 
usar: já vem com manual de instruções, 
que ensina,em português claro, 
a linguagem Basic. 

A partir daí, você pode preparar 
seus próprios programas ou utilizar as 
centenas de programas que já existem 
no mercado, para cadastrar clientes, controlar 
estoques, manter em ordem o orçamento 
familiar, fiscalizar a conta bancária, estudar 
matemática, estatística, jogar xadrez, guerra 
nas estrelas, e o que mais você puder imaginar. 

E além disso tudo, o TK 85 tem 
também o preço mais acessível do mercado. 
Peça uma demonstração. 


TK 85,o micro que você pode usar. 


§ 


/WCRODIGIML 

computadores pessoais 





QU€8Rfi-CflB€ÇFI 


"Como Dinorá 

Calculou o Valor De 7r?" 


Renato da Silva Oliveira 


Em nossa viagem de retorno ao Brasil, 
eu e a Dinorá nos entretíamos das mais di¬ 
versas formas possíveis. Às vezes, ao cair 
da noite, ficávamos a observar os milhões 
de tons que o céu assumia após o desa¬ 
parecimento do Sol no Oeste. Ficávamos 
calados durante muito tempo, vendo as es¬ 
trelas surgirem furtivamente, uma a uma, 
como que temendo a volta do Sol por de¬ 
trás do poente. Nosso silêncio se fazia sen¬ 
tir mais ainda quando nos percebíamos do 
barulho monótono das águas indo de en¬ 
contro ao casco do ANON. Quase sempre 
era a Dinorá que se opunha ao silêncio pri¬ 
meiro. Isso, depois de algumas horas. 


Numa dessas vezes, ela surpreendeu-me 
ao relatar uma idéia que lhe ocorrera en¬ 
quanto observávamos o surgimento, qua¬ 
se aleatório, das estreias no céu. Até on¬ 
de eu sei, a Dinorá ainda não havia bebi¬ 
do nem um gole do suco de morangos sil¬ 
vestres do Ramarujan nesse dia. Era isso 
que tornava o fato tão surpreendente! 

Ela havia redescoberto, sozinha, uma ma¬ 
neira de calcular o valor de 7 r (3,14159...) 
usando o gerador de números randômicos 
de meu micro. 

Quando entramos, já altas horas da ma¬ 
drugada, para o interior do ANON, a Dinorá 
digitou e executou um pequeno programa 
com pouco mais de dez linhas. Pudemos, 


então, verificar a validade do método que, 
para ela, tinha que ser testado. Na verda¬ 
de, muitos métodos semelhantes ao que 
Dinorá usou já foram estudados e até usa¬ 
dos por muitos matemáticos. 

Tenho a impressão de que os efeitos do 
suco de morangos do Ramarujan sobre a 
Dinorá tem durado cada vez mais tempo, 
ou então, tem algum efeito cumulativo/' 

O Quebra-Cabeça desta edição, consiste 
na obtenção de um programa semelhante 
ao da Dinorá. Ele deve gerar o valor de 7 r, 
usando o RAND e/ou o RND, e deve ter 
poucas linhas. 


DESCULPE-NOS 


Pelos nossos enganos. 

Na edição anterior:, a foto referente à 
matéria "TK 90X lançado no mercado bra¬ 
sileiro" é de autoria de Israel Teixeira. 

- No programa "Demolição", também da 
edição 22, ficou faltando a listagem BA¬ 
SIC, que deverá ser digitada antes da en¬ 
trada dos códigos hexadecimais. Para a en¬ 
trada desses códigos, utilize o mesmo mo¬ 
nitor Assembly do programa GAME, (edi¬ 
ção 21). 


- Na edição 21, cometemos um peque¬ 
no erro no programa "Base Lunar". Para 
que o programa funcione a contento, de¬ 
vemos retirar as linhas de número 750, 
760, 780, 786 e 790. Essa rotina gera ca¬ 
racteres UDG e, por termos redefinido os 
caracteres antes da digitação, essa rotina 
é desnecessária. Mas observe que pode¬ 
mos ter a geração de caracteres pelo pró¬ 
prio programa, "guardando" cada linha da 
matriz em linhas DATA. 


Se você quiser usar essa rotina de cria¬ 
ção 'de caracteres UDG, deve mudar os ca¬ 
racteres criados pelos modos gráficos das 
letras A, B, C, D, E, F, G da seguinte forma: 


Posições relativas dos invasores 

Posição 

Caracteres Usados 

mais afastada 

Caractere B 

média 

CD 

mais próxima 

" CED 

mira 

" A 

explosões 

" FG 


1Q SPÜe‘ 

2 Q R P; N D 
3Q LET M=ü 


t f F: ^ i7i 


Q. Pi R H ÜT £ R £ 5 } « « , 
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PARA TK 2000COLOR 


A Microsoft tem 120 programas em fitas e disquetes à sua disposição. 

São sistemas aplicativos para acompanhar e agilizar os negócios 
de sua empresa. E também jogos eletrônicos para você e sua família 

se divertirem muito. Todos especiais para TK-83, TK-85, - 

“TK-2000, AppIeXe compatíveis. E todos com a mesma qualidade - 

~dos 100.000 programas jà vendidos em todo o Brasil: - 

“Procure o revendedor Microsoft mais próximo (se não encontrar os 
programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000^ 
“S. Paulo-SP). Você encontrará os melhores programas da sua vida.j 


empre o melhor procg 












Filiada à ABICOMP 


AMicrodigita 
lança no Brasi 
o micro pessoal 
demaiorsucesso 
no munda 

A partir de agora a história dos 
micros pessoais vai ser contada em duas 
partes: antes e depois do TK 90X. 

0 TK 90X é, simplesmente, o único 
micro pessoal lançado no Brasil que 
merece a classificação de "software 
machine": um caso raro de micro que 
pela sua facilidade de uso, grandes 
recursos e preço acessível recebeu a 



atenção dos criadores de programas e 
periféricos em todo o mundo. 

Para você ter uma idéia, existem 
mais de 2 mil programas, 70 livrosJjO 
periféricos e inúmeras 
revistas de usuários disponíveis 
para ele internacionalmente. 


E aqui o TK 90X já sai com mais de 
100 programas, enquanto outros estão 
em fase final de desenvolvimento para 
lhe dar mais opções para trabalhar, 
aprender ou se divertir que com qualquer 
outro micro. 

0 TK 90X tem duas versões de 
memória (de 16 ou 48 K), imagem de 
alta resolução gráfica com 8 cores, 
carregamento rápido de programas, 
(controlável pelo próprio monitor), som 
pela TV, letras maiúsculas e minúsculas 
e ainda uma exclusividade: acentuação 
em português. 

Faça o seu programa: peça já uma 
demonstração do novo TK 90X. 

Preco de lançamento* 

16 K - CrS 1.899.850 • 48 K • CrS 2.199.850 














Av. ANGÉLICA, 2318 — 14.° Andar 
PABX — 255-0366 — Cx. Postal: 54096 
CEP: 01228 — SÃO PAULO — SP 


ASSINANTE: 


ASSINANTE: 


ENDEREÇO: 


ENDEREÇO: 


VALIDADE: 30/11/85 
VALOR 

□ ASSINATURA INICIAL — 
CrS 78.000,00 

□ RENOVAÇÃO — 

CrS 65.000,00 


CREDITAR: 

BRADESCO — AG. CONSOLAÇÃO - 
C/C N? 73.966-9 


VALIDADE: 30/11/85 
VALOR 

□ ASSINATURA INICIAL — 
CrS 78.000,00 

□ RENOVAÇÃO — 

CrS 65.000,00 


CREDITAR: 

BRADESCO — AG. CONSOLAÇÃO - 
C/C N.° 73.966-9 


vâldo se autenticado mecanicamente pelo banco 


VIA ASSINANTE 


VÁLDO SE AUTENTICADO MECAMCANENTE PELO BANCO 


VIA BANCO 


Validade: 30/11/85 

Valor □ Assinatura Inicial: CrS 78.000,00 
□ Renovação : CrS 65.000,00 


ATENÇÃO: 

EM CÃSO DE RENOVAÇÃO DE ASSINATURA COLE A 
ETIQUETA DE ENDEREÇAMENTO ATUAL NO ESPAÇO 
RESERVADO AO ENDEREÇO, VIA MICROHOBBY. 


AUTORIZO PELO PRESENTE MINHA: 

□ ASSINATURA INICIAL — CrS 78.000,00 

□ RENOVAÇÃO — CrS 65.000,00 

DA REVISTA MICROHOBBY POR 12 EDIÇÕES. 

ESTES PREÇOS SÃO VÁLIDOS ATÉ 30/11/85. 

PAGÁVEL EM QUALQUER AG. DO BANCO BRADESCO. 
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CREDITAR BRADESCO — AG. CONSOLAÇÃO — C/C. N.° 73.966-9 


VÁLDO SE AUTENTICADO MECANICAMENTE PELO BANCO 


VIA MICROHOBBY 




































































PECA OS NÚMEROS ATRASADOS 
E COMPLETE A SUA COLEÇÃO 

SIM, desejo receber os exemplares assinalados ao 
lado pelo preço de Cr$ 7.800,00 cada. 



□ 

N.° 

2 



□ 

N.° 

4 

□ 

N.° 

8 



□ 

N.° 

10 

□ 

IM.° 

11 



□ 

N.° 

12 

□ 

N.° 

13 



□ 

IM.° 

14 

□ 

IM.° 

15 



□ 

N.° 

16 

□ 

N.° 

17 



□ 

IM.° 

18 

□ 

N.° 

19 



□ 

N.° 

20 

□ 

l¥.° 

21 



□ 

N.° 

22 


TOTAL DO PEDIDO CRS _ 

ENVIO CHEQUE NOMINAL CRUZADO OU VALE POSTAL À 

MICRODIGITAL ELETRÔNICA LTDA./ MICROHOBBY 

CAIXA POSTAL 54.096 — PABX 255-0366 — CEP 01228 — SÃO PAULO 

CHEQUE N.° BANCO 

□ VALE POSTAL 






































